#!/usr/bin/perl

package My;

use strict;

use lib qw(/home/snowhare/modules/Sub-Parms/Sub-Parms-1.00/lib);

use Sub::Parms qw(:validate);
use Class::ParmList qw (simple_parms);
use Params::Validate qw (validate);

use Benchmark qw(cmpthese);
cmpthese(200000, {
            'sub_parms_method' => sub { sub_parms_method( 'ClassName', handle => 'Test', 'thing' => 'something')},
            'sub_parms_function' => sub { sub_parms_function( handle => 'Test', 'thing' => 'something')},
            'sub_parms_bind_parms_function' => sub { sub_parms_bind_parms_function( handle => 'Test', 'thing' => 'something')},
            'sub_parms_bind_parms_function_req' => sub { sub_parms_bind_parms_function_req( handle => 'Test', 'thing' => 'something')},
            'standard_args'    => sub { standard_args( handle => 'Test', 'thing' => 'something')},
            'cf_standard_args' => sub { cf_standard_args( handle => 'Test', 'thing' => 'something')},
            'one_step_args'    => sub { one_step_args( handle => 'Test', 'thing' => 'something')},
            'positional_args'  => sub { positional_args( 'Test', 'something')},
            'null_sub'         => sub { null_sub( handle => 'Test', 'thing' => 'something')},
            'null_method'      => sub { null_method( handle => 'Test', 'thing' => 'something')},
            'simple_parms'     => sub { simple_parms_args( handle => 'Test', 'thing' => 'something')},
            'params_validate'  => sub { params_validate( handle => 'Test', 'thing' => 'something')},
        }
);
exit;

############################################################################

sub params_validate {
    my ($handle, $thing) = @{(validate(@_, { handle => 1, thing => 1 }))}{'handle','thing'};
}

sub sub_parms_method {
    MethodParms := $self, %args;
    my ($handle, $thing) = @args{'handle','thing'};
}

sub sub_parms_function {
    ParmsHash := %args;
    my ($handle, $thing) = @args{'handle','thing'};
}

sub sub_parms_bind_parms_function {
    BindParms : (
        my $handle := handle;
        my $thing  := thing;
    )
}
sub sub_parms_bind_parms_function_req {
    BindParms : (
        my $handle := handle [required];
        my $thing  := thing  [required];
    )
}

sub simple_parms_args {
    my ($handle, $thing) =  simple_parms(['handle','thing'], @_);
}
sub positional_args {
    my ($handle, $thing) =  @_;
}
sub one_step_args {
    my %args = @_;
    my ($handle, $thing) =  @args{'handle','thing'};
}
sub cf_standard_args {
    my %args;
    {
        my %raw_args = @_;
        %args = map { lc($_) => $raw_args{$_} } keys %raw_args;
    }

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

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

##</code><code>##

                                       Rate
simple_parms                        28329/s
params_validate                     48077/s
cf_standard_args                    73529/s
sub_parms_bind_parms_function_req  157480/s
sub_parms_bind_parms_function      172414/s
one_step_args                      224719/s
standard_args                      229885/s
sub_parms_method                   238095/s
sub_parms_function                 270270/s
positional_args                    952381/s
null_method                       1666667/s
null_sub                          1666667/s