← Index
NYTProf Performance Profile   « line view »
For -e
  Run on Thu Jun 30 16:34:56 2016
Reported on Thu Jun 30 16:35:09 2016

Filename/home/s1/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/x86_64-linux/Params/Validate.pm
StatementsExecuted 26 statements in 825µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111964µs4.65msParams::Validate::::BEGIN@11Params::Validate::BEGIN@11
111444µs538µsParams::Validate::::BEGIN@12Params::Validate::BEGIN@12
11123µs23µsParams::Validate::::BEGIN@3Params::Validate::BEGIN@3
1119µs48µsParams::Validate::::BEGIN@10Params::Validate::BEGIN@10
1119µs12µsParams::Validate::::BEGIN@5Params::Validate::BEGIN@5
1118µs13µsParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
1118µs50µsParams::Validate::::BEGIN@14Params::Validate::BEGIN@14
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
3250µs123µs
# spent 23µs within Params::Validate::BEGIN@3 which was called: # once (23µs+0s) by DateTime::Duration::BEGIN@11 at line 3
use 5.008001;
# spent 23µs making 1 call to Params::Validate::BEGIN@3
4
5224µs215µs
# spent 12µs (9+3) within Params::Validate::BEGIN@5 which was called: # once (9µs+3µs) by DateTime::Duration::BEGIN@11 at line 5
use strict;
# spent 12µs making 1 call to Params::Validate::BEGIN@5 # spent 3µs making 1 call to strict::import
6244µs219µs
# spent 13µs (8+6) within Params::Validate::BEGIN@6 which was called: # once (8µs+6µs) by DateTime::Duration::BEGIN@11 at line 6
use warnings;
# spent 13µs making 1 call to Params::Validate::BEGIN@6 # spent 6µs making 1 call to warnings::import
7
81400nsour $VERSION = '1.24';
9
10248µs286µs
# spent 48µs (9+39) within Params::Validate::BEGIN@10 which was called: # once (9µs+39µs) by DateTime::Duration::BEGIN@11 at line 10
use Exporter;
# spent 48µs making 1 call to Params::Validate::BEGIN@10 # spent 39µs making 1 call to Exporter::import
112225µs14.65ms
# spent 4.65ms (964µs+3.68) within Params::Validate::BEGIN@11 which was called: # once (964µs+3.68ms) by DateTime::Duration::BEGIN@11 at line 11
use Module::Implementation;
# spent 4.65ms making 1 call to Params::Validate::BEGIN@11
122249µs2602µs
# spent 538µs (444+94) within Params::Validate::BEGIN@12 which was called: # once (444µs+94µs) by DateTime::Duration::BEGIN@11 at line 12
use Params::Validate::Constants;
# spent 538µs making 1 call to Params::Validate::BEGIN@12 # spent 64µs making 1 call to Exporter::import
13
142152µs293µs
# spent 50µs (8+42) within Params::Validate::BEGIN@14 which was called: # once (8µs+42µs) by DateTime::Duration::BEGIN@11 at line 14
use vars qw( $NO_VALIDATION %OPTIONS $options );
# spent 50µs making 1 call to Params::Validate::BEGIN@14 # spent 42µs making 1 call to vars::import
15
1616µsour @ISA = 'Exporter';
17
1811µsmy @types = qw(
19 SCALAR
20 ARRAYREF
21 HASHREF
22 CODEREF
23 GLOB
24 GLOBREF
25 SCALARREF
26 HANDLE
27 BOOLEAN
28 UNDEF
29 OBJECT
30);
31
3213µsour %EXPORT_TAGS = (
33 'all' => [
34 qw( validate validate_pos validation_options validate_with ),
35 @types
36 ],
37 types => \@types,
38);
39
4012µsour @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' );
411400nsour @EXPORT = qw( validate validate_pos );
42
431400ns$NO_VALIDATION = $ENV{PERL_NO_VALIDATION};
44
45{
4624µs122µs my $loader = Module::Implementation::build_loader_sub(
# spent 22µs making 1 call to Module::Implementation::build_loader_sub
47 implementations => [ 'XS', 'PP' ],
48 symbols => [
49 qw(
50 validate
51 validate_pos
52 validate_with
53 validation_options
54 set_options
55 ),
56 ],
57 );
58
591500ns $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'PP' if $ENV{PV_TEST_PERL};
60
6116µs1915µs $loader->();
62}
63
6419µs1;
65
66# ABSTRACT: Validate method/function parameters
67
68__END__