Select Code to Download

Search::InvertedIndex::Update->new({
                     -group => $group,
...
                           $key2 => 15,
                       },
});

Search::InvertedIndex::Update->new($group, $index, $index_data, {
                           $key0 => 10,
...
                           $key2 => 15,
                       }
);

use Params::Validate  qw (validate);
$Params::Validate::NO_VALIDATION = 1;
sub params_validate {
    my ($handle, $thing) = @{(validate(@_, { handle => 1, thing => 1 }
+))}{'handle','thing'};
}

use Class::ParmList qw (simple_parms);
sub simple_parms_args {
    my ($handle, $thing) =  simple_parms(['handle','thing'], @_);
}

use Acme::Sub::Parms qw(:no_validation);

...
        my $thing  : thing;
    )
}

sub one_step_args {
    my ($handle, $thing) =  @{{@_}}{'handle','thing'};
}

sub std_args {
    my %args = @_;
    my ($handle, $thing) =  @args{'handle','thing'};
}

sub caseflat_std_args {
    my %args;
...

    my ($handle, $thing) =  @args{'handle','thing'};
}

sub positional_args {
    my ($handle, $thing) =  @_;
}

#!/usr/bin/perl

...
    my ($handle, $thing) =  @args{'handle','thing'};
}

 
                 Rate validate simple_parms caseflat bindparms one_ste
+p std_args postnl_args
...
std_args     296736/s    1094%         620%     209%       19%      18
+%       --        -68%
postnl_args  925926/s    3626%        2147%     865%      271%     268
+%     212%          --

#!/usr/bin/perl

...
    my ($handle, $thing) =  @args{'handle','thing'};
}

 
                Rate std_args_d std_args parm2_sub double_sub anon_sub
+   one_sub
...
anon_sub   2469136/s       530%     527%      319%       123%       --
+       -9%
one_sub    2702703/s       589%     586%      358%       145%       9%
+        --