| Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/x86_64-linux/Params/ValidateXS.pm |
| Statements | Executed 15 statements in 597µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 22 | 1 | 1 | 629µs | 629µs | Params::Validate::_validate (xsub) |
| 22 | 1 | 1 | 565µs | 565µs | Params::Validate::_validate_with (xsub) |
| 1 | 1 | 1 | 25µs | 31µs | Params::Validate::BEGIN@3.4 |
| 1 | 1 | 1 | 24µs | 24µs | Params::Validate::BEGIN@41 |
| 1 | 1 | 1 | 15µs | 27µs | Params::Validate::BEGIN@4 |
| 0 | 0 | 0 | 0s | 0s | Params::Validate::__ANON__[:11] |
| 0 | 0 | 0 | 0s | 0s | Params::Validate::_check_regex_from_xs |
| 0 | 0 | 0 | 0s | 0s | Params::Validate::validation_options |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Params::Validate; | ||||
| 2 | |||||
| 3 | 2 | 26µs | 2 | 36µs | # spent 31µs (25+6) within Params::Validate::BEGIN@3.4 which was called:
# once (25µs+6µs) by Params::Validate::BEGIN@5 at line 3 # spent 31µs making 1 call to Params::Validate::BEGIN@3.4
# spent 6µs making 1 call to strict::import |
| 4 | 2 | 258µs | 2 | 38µs | # spent 27µs (15+12) within Params::Validate::BEGIN@4 which was called:
# once (15µs+12µs) by Params::Validate::BEGIN@5 at line 4 # spent 27µs making 1 call to Params::Validate::BEGIN@4
# spent 12µs making 1 call to warnings::import |
| 5 | |||||
| 6 | 1 | 1µs | require XSLoader; | ||
| 7 | 1 | 256µs | 1 | 248µs | XSLoader::load( 'Params::Validate', $Params::Validate::VERSION ); # spent 248µs making 1 call to XSLoader::load |
| 8 | |||||
| 9 | |||||
| 10 | my $default_fail = sub { require Carp; | ||||
| 11 | 1 | 3µs | Carp::confess($_[0]) }; | ||
| 12 | |||||
| 13 | { | ||||
| 14 | 2 | 6µs | my %defaults = ( ignore_case => 0, | ||
| 15 | strip_leading => 0, | ||||
| 16 | allow_extra => 0, | ||||
| 17 | on_fail => $default_fail, | ||||
| 18 | stack_skip => 1, | ||||
| 19 | normalize_keys => undef, | ||||
| 20 | ); | ||||
| 21 | |||||
| 22 | 1 | 1µs | *set_options = \&validation_options; | ||
| 23 | sub validation_options | ||||
| 24 | { | ||||
| 25 | my %opts = @_; | ||||
| 26 | |||||
| 27 | my $caller = caller; | ||||
| 28 | |||||
| 29 | foreach ( keys %defaults ) | ||||
| 30 | { | ||||
| 31 | $opts{$_} = $defaults{$_} unless exists $opts{$_}; | ||||
| 32 | } | ||||
| 33 | |||||
| 34 | $OPTIONS{$caller} = \%opts; | ||||
| 35 | } | ||||
| 36 | } | ||||
| 37 | |||||
| 38 | sub _check_regex_from_xs { return ( defined $_[0] ? $_[0] : '' ) =~ /$_[1]/ ? 1 : 0 } | ||||
| 39 | |||||
| 40 | BEGIN | ||||
| 41 | # spent 24µs within Params::Validate::BEGIN@41 which was called:
# once (24µs+0s) by Params::Validate::BEGIN@5 at line 135 | ||||
| 42 | 4 | 21µs | if ( $] >= 5.006 && $] < 5.007 ) | ||
| 43 | { | ||||
| 44 | eval <<'EOF'; | ||||
| 45 | sub check_for_error | ||||
| 46 | { | ||||
| 47 | if ( defined $Params::Validate::ERROR ) | ||||
| 48 | { | ||||
| 49 | $Params::Validate::ON_FAIL ||= sub { require Carp; Carp::croak( $_[0] ) }; | ||||
| 50 | |||||
| 51 | $Params::Validate::ON_FAIL->($Params::Validate::ERROR) | ||||
| 52 | } | ||||
| 53 | } | ||||
| 54 | |||||
| 55 | sub validate_pos (\@@) | ||||
| 56 | { | ||||
| 57 | local $Params::Validate::ERROR; | ||||
| 58 | local $Params::Validate::ON_FAIL; | ||||
| 59 | local $Params::Validate::CALLER = caller; | ||||
| 60 | |||||
| 61 | my $r; | ||||
| 62 | if (defined wantarray) | ||||
| 63 | { | ||||
| 64 | $r = &_validate_pos; | ||||
| 65 | } | ||||
| 66 | else | ||||
| 67 | { | ||||
| 68 | &_validate_pos; | ||||
| 69 | } | ||||
| 70 | |||||
| 71 | check_for_error(); | ||||
| 72 | |||||
| 73 | return wantarray ? @$r : $r if defined wantarray; | ||||
| 74 | } | ||||
| 75 | |||||
| 76 | sub validate (\@$) | ||||
| 77 | { | ||||
| 78 | local $Params::Validate::ERROR; | ||||
| 79 | local $Params::Validate::ON_FAIL; | ||||
| 80 | local $Params::Validate::CALLER = caller; | ||||
| 81 | |||||
| 82 | my $r; | ||||
| 83 | if (defined wantarray) | ||||
| 84 | { | ||||
| 85 | $r = &_validate; | ||||
| 86 | } | ||||
| 87 | else | ||||
| 88 | { | ||||
| 89 | &_validate; | ||||
| 90 | } | ||||
| 91 | |||||
| 92 | check_for_error(); | ||||
| 93 | |||||
| 94 | return wantarray ? %$r : $r if defined wantarray; | ||||
| 95 | } | ||||
| 96 | |||||
| 97 | sub validate_with | ||||
| 98 | { | ||||
| 99 | local $Params::Validate::ERROR; | ||||
| 100 | local $Params::Validate::ON_FAIL; | ||||
| 101 | local $Params::Validate::CALLER = caller; | ||||
| 102 | |||||
| 103 | my $r; | ||||
| 104 | if (defined wantarray) | ||||
| 105 | { | ||||
| 106 | $r = &_validate_with; | ||||
| 107 | } | ||||
| 108 | else | ||||
| 109 | { | ||||
| 110 | &_validate_with; | ||||
| 111 | } | ||||
| 112 | |||||
| 113 | check_for_error(); | ||||
| 114 | |||||
| 115 | my %p = @_; | ||||
| 116 | if ( UNIVERSAL::isa( $p{spec}, 'ARRAY' ) ) | ||||
| 117 | { | ||||
| 118 | return wantarray ? @$r : $r if defined wantarray; | ||||
| 119 | } | ||||
| 120 | else | ||||
| 121 | { | ||||
| 122 | return wantarray ? %$r : $r if defined wantarray; | ||||
| 123 | } | ||||
| 124 | } | ||||
| 125 | EOF | ||||
| 126 | |||||
| 127 | die $@ if $@; | ||||
| 128 | } | ||||
| 129 | else | ||||
| 130 | { | ||||
| 131 | *validate = \&_validate; | ||||
| 132 | *validate_pos = \&_validate_pos; | ||||
| 133 | *validate_with = \&_validate_with; | ||||
| 134 | } | ||||
| 135 | 1 | 18µs | 1 | 24µs | } # spent 24µs making 1 call to Params::Validate::BEGIN@41 |
| 136 | |||||
| 137 | 1 | 7µs | 1; | ||
| 138 | |||||
| 139 | __END__ | ||||
# spent 629µs within Params::Validate::_validate which was called 22 times, avg 29µs/call:
# 22 times (629µs+0s) by Getopt::Long::Descriptive::_validate_with at line 442 of Getopt/Long/Descriptive.pm, avg 29µs/call | |||||
# spent 565µs within Params::Validate::_validate_with which was called 22 times, avg 26µs/call:
# 22 times (565µs+0s) by Getopt::Long::Descriptive::_validate_with at line 486 of Getopt/Long/Descriptive.pm, avg 26µs/call |