← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/hailo
  Run on Thu Oct 21 22:50:37 2010
Reported on Thu Oct 21 22:52:05 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/x86_64-linux/Params/ValidateXS.pm
StatementsExecuted 15 statements in 597µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2211629µs629µsParams::Validate::::_validateParams::Validate::_validate (xsub)
2211565µs565µsParams::Validate::::_validate_withParams::Validate::_validate_with (xsub)
11125µs31µsParams::Validate::::BEGIN@3.4Params::Validate::BEGIN@3.4
11124µs24µsParams::Validate::::BEGIN@41Params::Validate::BEGIN@41
11115µs27µsParams::Validate::::BEGIN@4Params::Validate::BEGIN@4
0000s0sParams::Validate::::__ANON__[:11]Params::Validate::__ANON__[:11]
0000s0sParams::Validate::::_check_regex_from_xsParams::Validate::_check_regex_from_xs
0000s0sParams::Validate::::validation_optionsParams::Validate::validation_options
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Params::Validate;
2
3226µs236µ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
use strict;
# spent 31µs making 1 call to Params::Validate::BEGIN@3.4 # spent 6µs making 1 call to strict::import
42258µs238µ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
use warnings;
# spent 27µs making 1 call to Params::Validate::BEGIN@4 # spent 12µs making 1 call to warnings::import
5
611µsrequire XSLoader;
71256µs1248µsXSLoader::load( 'Params::Validate', $Params::Validate::VERSION );
# spent 248µs making 1 call to XSLoader::load
8
9
10my $default_fail = sub { require Carp;
1113µs Carp::confess($_[0]) };
12
13{
1426µ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
2211µ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
38sub _check_regex_from_xs { return ( defined $_[0] ? $_[0] : '' ) =~ /$_[1]/ ? 1 : 0 }
39
40BEGIN
41
# spent 24µs within Params::Validate::BEGIN@41 which was called: # once (24µs+0s) by Params::Validate::BEGIN@5 at line 135
{
42421µs if ( $] >= 5.006 && $] < 5.007 )
43 {
44 eval <<'EOF';
45sub 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
55sub 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
76sub 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
97sub 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}
125EOF
126
127 die $@ if $@;
128 }
129 else
130 {
131 *validate = \&_validate;
132 *validate_pos = \&_validate_pos;
133 *validate_with = \&_validate_with;
134 }
135118µs124µs}
# spent 24µs making 1 call to Params::Validate::BEGIN@41
136
13717µs1;
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
sub Params::Validate::_validate; # xsub
# 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
sub Params::Validate::_validate_with; # xsub