Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/x86_64-linux/Params/Validate.pm |
Statements | Executed 17 statements in 381µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 426µs | 756µs | BEGIN@5 | Params::Validate::
1 | 1 | 1 | 26µs | 31µs | BEGIN@3 | Params::Validate::
1 | 1 | 1 | 13µs | 219µs | BEGIN@7 | Params::Validate::
1 | 1 | 1 | 12µs | 45µs | BEGIN@6 | Params::Validate::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Params::Validate; | ||||
2 | |||||
3 | 2 | 37µs | 2 | 36µs | # spent 31µs (26+5) within Params::Validate::BEGIN@3 which was called:
# once (26µs+5µs) by Getopt::Long::Descriptive::BEGIN@9 at line 3 # spent 31µs making 1 call to Params::Validate::BEGIN@3
# spent 5µs making 1 call to strict::import |
4 | |||||
5 | # spent 756µs (426+329) within Params::Validate::BEGIN@5 which was called:
# once (426µs+329µs) by Getopt::Long::Descriptive::BEGIN@9 at line 39 | ||||
6 | 2 | 45µs | 2 | 78µs | # spent 45µs (12+33) within Params::Validate::BEGIN@6 which was called:
# once (12µs+33µs) by Getopt::Long::Descriptive::BEGIN@9 at line 6 # spent 45µs making 1 call to Params::Validate::BEGIN@6
# spent 33µs making 1 call to Exporter::import |
7 | 1 | 13µs | 1 | 206µs | # spent 219µs (13+206) within Params::Validate::BEGIN@7 which was called:
# once (13µs+206µs) by Getopt::Long::Descriptive::BEGIN@9 at line 8 # spent 206µs making 1 call to vars::import |
8 | 1 | 128µs | 1 | 219µs | %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION ); # spent 219µs making 1 call to Params::Validate::BEGIN@7 |
9 | |||||
10 | 1 | 6µs | @ISA = 'Exporter'; | ||
11 | |||||
12 | 1 | 1µs | $VERSION = '0.95'; | ||
13 | |||||
14 | 1 | 8µ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 | 8µs | map { @{ $tags{$_} } } keys %tags | ||
25 | ], | ||||
26 | %tags, | ||||
27 | ); | ||||
28 | |||||
29 | 1 | 4µs | @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' ); | ||
30 | 1 | 1µs | @EXPORT = qw( validate validate_pos ); | ||
31 | |||||
32 | 1 | 1µs | $NO_VALIDATION = $ENV{PERL_NO_VALIDATION}; | ||
33 | |||||
34 | 2 | 96µ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 | 22µs | 1 | 756µs | } # spent 756µs making 1 call to Params::Validate::BEGIN@5 |
40 | |||||
41 | 1 | 3µs | 1; | ||
42 | |||||
43 | __END__ |