use Class::ParmList qw (simple_parms);
sub example_method {
    my $self = shift;
    my ($handle, $thing) = simple_parms(['handle','thing'],@_);
    #...
}