| Filename | /usr/lib/perl5/Params/Validate.pm |
| Statements | Executed 20 statements in 486µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 585µs | 941µs | Params::Validate::BEGIN@5 |
| 1 | 1 | 1 | 34µs | 40µs | Params::Validate::BEGIN@3 |
| 1 | 1 | 1 | 13µs | 48µs | Params::Validate::BEGIN@6 |
| 1 | 1 | 1 | 12µs | 167µs | Params::Validate::BEGIN@7 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Params::Validate; | ||||
| 2 | |||||
| 3 | 3 | 41µs | 2 | 46µs | # spent 40µs (34+6) within Params::Validate::BEGIN@3 which was called:
# once (34µs+6µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 3 # spent 40µs making 1 call to Params::Validate::BEGIN@3
# spent 6µs making 1 call to strict::import |
| 4 | |||||
| 5 | # spent 941µs (585+356) within Params::Validate::BEGIN@5 which was called:
# once (585µs+356µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 39 | ||||
| 6 | 3 | 38µs | 2 | 84µs | # spent 48µs (13+36) within Params::Validate::BEGIN@6 which was called:
# once (13µs+36µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 6 # spent 48µs making 1 call to Params::Validate::BEGIN@6
# spent 36µs making 1 call to Exporter::import |
| 7 | 1 | 155µs | # spent 167µs (12+155) within Params::Validate::BEGIN@7 which was called:
# once (12µs+155µs) by DateTime::TimeZone::OffsetOnly::BEGIN@12 at line 8 # spent 155µs making 1 call to vars::import | ||
| 8 | 3 | 237µs | 1 | 167µs | %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION ); # spent 167µs making 1 call to Params::Validate::BEGIN@7 |
| 9 | |||||
| 10 | 10 | 125µ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 | 43µs | 1 | 941µs | } # spent 941µs making 1 call to Params::Validate::BEGIN@5 |
| 40 | |||||
| 41 | 1 | 2µs | 1; | ||
| 42 | |||||
| 43 | __END__ |