| Filename | /usr/local/lib/perl/5.10.1/Params/Validate.pm |
| Statements | Executed 20 statements in 437µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 612µs | 864µs | Params::Validate::BEGIN@5 |
| 1 | 1 | 1 | 15µs | 19µs | Params::Validate::BEGIN@3 |
| 1 | 1 | 1 | 11µs | 38µs | Params::Validate::BEGIN@6 |
| 1 | 1 | 1 | 9µs | 142µs | Params::Validate::BEGIN@7 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Params::Validate; | ||||
| 2 | |||||
| 3 | 3 | 36µs | 2 | 22µs | # spent 19µs (15+3) within Params::Validate::BEGIN@3 which was called:
# once (15µs+3µs) by DateTime::Duration::BEGIN@12 at line 3 # spent 19µs making 1 call to Params::Validate::BEGIN@3
# spent 4µs making 1 call to strict::import |
| 4 | |||||
| 5 | # spent 864µs (612+252) within Params::Validate::BEGIN@5 which was called:
# once (612µs+252µs) by DateTime::Duration::BEGIN@12 at line 39 | ||||
| 6 | 3 | 48µs | 2 | 65µs | # spent 38µs (11+27) within Params::Validate::BEGIN@6 which was called:
# once (11µs+27µs) by DateTime::Duration::BEGIN@12 at line 6 # spent 38µs making 1 call to Params::Validate::BEGIN@6
# spent 27µs making 1 call to Exporter::import |
| 7 | 1 | 5µs | 1 | 133µs | # spent 142µs (9+133) within Params::Validate::BEGIN@7 which was called:
# once (9µs+133µs) by DateTime::Duration::BEGIN@12 at line 8 # spent 133µs making 1 call to vars::import |
| 8 | 2 | 197µs | 1 | 142µs | %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION ); # spent 142µs making 1 call to Params::Validate::BEGIN@7 |
| 9 | |||||
| 10 | 1 | 9µs | @ISA = 'Exporter'; | ||
| 11 | |||||
| 12 | 1 | 600ns | $VERSION = '0.95'; | ||
| 13 | |||||
| 14 | 1 | 3µs | 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 | 1 | 9µs | map { @{ $tags{$_} } } keys %tags | ||
| 25 | ], | ||||
| 26 | %tags, | ||||
| 27 | ); | ||||
| 28 | |||||
| 29 | 1 | 10µs | @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' ); | ||
| 30 | 1 | 900ns | @EXPORT = qw( validate validate_pos ); | ||
| 31 | |||||
| 32 | 1 | 600ns | $NO_VALIDATION = $ENV{PERL_NO_VALIDATION}; | ||
| 33 | |||||
| 34 | 2 | 76µs | eval { require Params::ValidateXS; } unless $ENV{PV_TEST_PERL}; | ||
| 35 | |||||
| 36 | 1 | 6µs | if ( $@ || $ENV{PV_TEST_PERL} ) { | ||
| 37 | require Params::ValidatePP; | ||||
| 38 | } | ||||
| 39 | 1 | 32µs | 1 | 864µs | } # spent 864µs making 1 call to Params::Validate::BEGIN@5 |
| 40 | |||||
| 41 | 1 | 2µs | 1; | ||
| 42 | |||||
| 43 | __END__ |