Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: When is it better to NOT release a new module?

by snowhare (Friar)
on Nov 02, 2005 at 19:02 UTC ( #505056=note: print w/replies, xml ) Need Help??


in reply to Re: When is it better to NOT release a new module?
in thread When is it better to NOT release a new module?

Substantially faster.

#!/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_pa +rms_function( handle => 'Test', 'thing' => 'something')}, 'sub_parms_bind_parms_function_req' => sub { sub_parms_bin +d_parms_function_req( handle => 'Test', 'thing' => 'something')}, 'standard_args' => sub { standard_args( handle => 'Test +', 'thing' => 'something')}, 'cf_standard_args' => sub { cf_standard_args( handle => 'T +est', 'thing' => 'something')}, 'one_step_args' => sub { one_step_args( handle => 'Test +', 'thing' => 'something')}, 'positional_args' => sub { positional_args( 'Test', 'some +thing')}, 'null_sub' => sub { null_sub( handle => 'Test', 't +hing' => '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 => 'Te +st', '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 { }
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://505056]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2018-07-21 00:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (442 votes). Check out past polls.

    Notices?