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 | _validate (xsub) | Params::Validate::
22 | 1 | 1 | 565µs | 565µs | _validate_with (xsub) | Params::Validate::
1 | 1 | 1 | 25µs | 31µs | BEGIN@3.4 | Params::Validate::
1 | 1 | 1 | 24µs | 24µs | BEGIN@41 | Params::Validate::
1 | 1 | 1 | 15µs | 27µs | BEGIN@4 | Params::Validate::
0 | 0 | 0 | 0s | 0s | __ANON__[:11] | Params::Validate::
0 | 0 | 0 | 0s | 0s | _check_regex_from_xs | Params::Validate::
0 | 0 | 0 | 0s | 0s | validation_options | Params::Validate::
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 | 3 | 7µ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 | *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 |