| Filename | /usr/lib/perl5/Params/Validate.pm |
| Statements | Executed 20 statements in 860µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 928µs | 1.43ms | Params::Validate::BEGIN@5 |
| 1 | 1 | 1 | 25µs | 32µs | Params::Validate::BEGIN@3 |
| 1 | 1 | 1 | 22µs | 133µs | Params::Validate::BEGIN@6 |
| 1 | 1 | 1 | 16µs | 245µs | Params::Validate::BEGIN@7 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Params::Validate; | ||||
| 2 | |||||
| 3 | 3 | 58µs | 2 | 39µs | # spent 32µs (25+7) within Params::Validate::BEGIN@3 which was called:
# once (25µs+7µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 3 # spent 32µs making 1 call to Params::Validate::BEGIN@3
# spent 7µs making 1 call to strict::import |
| 4 | |||||
| 5 | # spent 1.43ms (928µs+497µs) within Params::Validate::BEGIN@5 which was called:
# once (928µs+497µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 39 | ||||
| 6 | 3 | 66µs | 2 | 245µs | # spent 133µs (22+112) within Params::Validate::BEGIN@6 which was called:
# once (22µs+112µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 6 # spent 133µs making 1 call to Params::Validate::BEGIN@6
# spent 112µs making 1 call to Exporter::import |
| 7 | 1 | 229µs | # spent 245µs (16+229) within Params::Validate::BEGIN@7 which was called:
# once (16µs+229µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 8 # spent 229µs making 1 call to vars::import | ||
| 8 | 3 | 262µs | 1 | 245µs | %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION ); # spent 245µs making 1 call to Params::Validate::BEGIN@7 |
| 9 | |||||
| 10 | 10 | 237µs | @ISA = 'Exporter'; | ||
| 11 | |||||
| 12 | $VERSION = '0.93'; | ||||
| 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 | 231µs | 1 | 1.43ms | } # spent 1.43ms making 1 call to Params::Validate::BEGIN@5 |
| 40 | |||||
| 41 | 1 | 6µs | 1; | ||
| 42 | |||||
| 43 | __END__ |