| Filename | /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Params/Validate.pm |
| Statements | Executed 20 statements in 1.43ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 1.64ms | 2.72ms | Params::Validate::BEGIN@5 |
| 1 | 1 | 1 | 70µs | 89µs | Params::Validate::BEGIN@3 |
| 1 | 1 | 1 | 43µs | 149µs | Params::Validate::BEGIN@6 |
| 1 | 1 | 1 | 37µs | 603µs | Params::Validate::BEGIN@7 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Params::Validate; | ||||
| 2 | |||||
| 3 | 3 | 135µs | 2 | 108µs | # spent 89µs (70+19) within Params::Validate::BEGIN@3 which was called:
# once (70µs+19µs) by MooseX::Params::Validate::BEGIN@11 at line 3 # spent 89µs making 1 call to Params::Validate::BEGIN@3
# spent 19µs making 1 call to strict::import |
| 4 | |||||
| 5 | # spent 2.72ms (1.64+1.08) within Params::Validate::BEGIN@5 which was called:
# once (1.64ms+1.08ms) by MooseX::Params::Validate::BEGIN@11 at line 39 | ||||
| 6 | 3 | 121µs | 2 | 256µs | # spent 149µs (43+106) within Params::Validate::BEGIN@6 which was called:
# once (43µs+106µs) by MooseX::Params::Validate::BEGIN@11 at line 6 # spent 149µs making 1 call to Params::Validate::BEGIN@6
# spent 106µs making 1 call to Exporter::import |
| 7 | 1 | 566µs | # spent 603µs (37+566) within Params::Validate::BEGIN@7 which was called:
# once (37µs+566µs) by MooseX::Params::Validate::BEGIN@11 at line 8 # spent 566µs making 1 call to vars::import | ||
| 8 | 3 | 600µs | 1 | 603µs | %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION ); # spent 603µs making 1 call to Params::Validate::BEGIN@7 |
| 9 | |||||
| 10 | 10 | 458µs | @ISA = 'Exporter'; | ||
| 11 | |||||
| 12 | $VERSION = '0.95'; | ||||
| 13 | |||||
| 14 | my %tags = ( | ||||
| 15 | types => [ | ||||
| 16 | qw( SCALAR ARRAYREF HASHREF CODEREF GLOB GLOBREF | ||||
| 17 | SCALARREF HANDLE BOOLEAN UNDEF OBJECT ) | ||||
| 18 | ], | ||||
| 19 | ); | ||||
| 20 | |||||
| 21 | %EXPORT_TAGS = ( | ||||
| 22 | 'all' => [ | ||||
| 23 | qw( validate validate_pos validation_options validate_with ), | ||||
| 24 | map { @{ $tags{$_} } } keys %tags | ||||
| 25 | ], | ||||
| 26 | %tags, | ||||
| 27 | ); | ||||
| 28 | |||||
| 29 | @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' ); | ||||
| 30 | @EXPORT = qw( validate validate_pos ); | ||||
| 31 | |||||
| 32 | $NO_VALIDATION = $ENV{PERL_NO_VALIDATION}; | ||||
| 33 | |||||
| 34 | eval { require Params::ValidateXS; } unless $ENV{PV_TEST_PERL}; | ||||
| 35 | |||||
| 36 | if ( $@ || $ENV{PV_TEST_PERL} ) { | ||||
| 37 | require Params::ValidatePP; | ||||
| 38 | } | ||||
| 39 | 1 | 108µs | 1 | 2.72ms | } # spent 2.72ms making 1 call to Params::Validate::BEGIN@5 |
| 40 | |||||
| 41 | 1 | 10µs | 1; | ||
| 42 | |||||
| 43 | __END__ |