← Index
NYTProf Performance Profile   « line view »
For script/ponapi
  Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:09 2016

Filename/usr/lib/perl5/Params/Validate/XS.pm
StatementsExecuted 14 statements in 2.13ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
51154µs54µsParams::Validate::XS::::validateParams::Validate::XS::validate (xsub)
51138µs38µsParams::Validate::XS::::validate_withParams::Validate::XS::validate_with (xsub)
1119µs20µsParams::Validate::XS::::BEGIN@6Params::Validate::XS::BEGIN@6
1116µs11µsParams::Validate::XS::::BEGIN@7Params::Validate::XS::BEGIN@7
1116µs6µsParams::Validate::XS::::BEGIN@38Params::Validate::XS::BEGIN@38
0000s0sParams::Validate::XS::::__ANON__[:12]Params::Validate::XS::__ANON__[:12]
0000s0sParams::Validate::XS::::_check_regex_from_xsParams::Validate::XS::_check_regex_from_xs
0000s0sParams::Validate::XS::::validation_optionsParams::Validate::XS::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::XS;
2{
32600ns $Params::Validate::XS::VERSION = '1.08';
4}
5
6220µs230µs
# spent 20µs (9+10) within Params::Validate::XS::BEGIN@6 which was called: # once (9µs+10µs) by Module::Runtime::require_module at line 6
use strict;
# spent 20µs making 1 call to Params::Validate::XS::BEGIN@6 # spent 10µs making 1 call to strict::import
72119µs215µs
# spent 11µs (6+4) within Params::Validate::XS::BEGIN@7 which was called: # once (6µs+4µs) by Module::Runtime::require_module at line 7
use warnings;
# spent 11µs making 1 call to Params::Validate::XS::BEGIN@7 # spent 4µs making 1 call to warnings::import
8
9my $default_fail = sub {
10 require Carp;
11 Carp::confess( $_[0] );
1212µs};
13
14{
1524µs my %defaults = (
16 ignore_case => 0,
17 strip_leading => 0,
18 allow_extra => 0,
19 on_fail => $default_fail,
20 stack_skip => 1,
21 normalize_keys => undef,
22 );
23
241700ns *set_options = \&validation_options;
25
26 sub validation_options {
27 my %opts = @_;
28
29 my $caller = caller;
30
31 foreach ( keys %defaults ) {
32 $opts{$_} = $defaults{$_} unless exists $opts{$_};
33 }
34
35 $Params::Validate::OPTIONS{$caller} = \%opts;
36 }
37
38272µs16µs
# spent 6µs within Params::Validate::XS::BEGIN@38 which was called: # once (6µs+0s) by Module::Runtime::require_module at line 38
use XSLoader;
# spent 6µs making 1 call to Params::Validate::XS::BEGIN@38
39 XSLoader::load(
40 __PACKAGE__,
41 exists $Params::Validate::XS::{VERSION}
4211.90ms11.90ms ? ${ $Params::Validate::XS::{VERSION} }
# spent 1.90ms making 1 call to XSLoader::load
43 : (),
44 );
45}
46
47sub _check_regex_from_xs {
48 return ( defined $_[0] ? $_[0] : '' ) =~ /$_[1]/ ? 1 : 0;
49}
50
5117µs1;
 
# spent 54µs within Params::Validate::XS::validate which was called 5 times, avg 11µs/call: # 5 times (54µs+0s) by Getopt::Long::Descriptive::_validate_with at line 482 of Getopt/Long/Descriptive.pm, avg 11µs/call
sub Params::Validate::XS::validate; # xsub
# spent 38µs within Params::Validate::XS::validate_with which was called 5 times, avg 8µs/call: # 5 times (38µs+0s) by Getopt::Long::Descriptive::_validate_with at line 534 of Getopt/Long/Descriptive.pm, avg 8µs/call
sub Params::Validate::XS::validate_with; # xsub