← 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.pm
StatementsExecuted 27 statements in 684µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111537µs622µsParams::Validate::::BEGIN@13Params::Validate::BEGIN@13
11114µs14µsParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
1117µs13µsParams::Validate::::BEGIN@9Params::Validate::BEGIN@9
1116µs42µsParams::Validate::::BEGIN@15Params::Validate::BEGIN@15
1116µs18µsParams::Validate::::BEGIN@8Params::Validate::BEGIN@8
1116µs20µsParams::Validate::::BEGIN@11Params::Validate::BEGIN@11
1115µs5µsParams::Validate::::BEGIN@12Params::Validate::BEGIN@12
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{
32900ns $Params::Validate::VERSION = '1.08';
4}
5
6238µs114µs
# spent 14µs within Params::Validate::BEGIN@6 which was called: # once (14µs+0s) by Getopt::Long::Descriptive::BEGIN@10 at line 6
use 5.008001;
# spent 14µs making 1 call to Params::Validate::BEGIN@6
7
8219µs230µs
# spent 18µs (6+12) within Params::Validate::BEGIN@8 which was called: # once (6µs+12µs) by Getopt::Long::Descriptive::BEGIN@10 at line 8
use strict;
# spent 18µs making 1 call to Params::Validate::BEGIN@8 # spent 12µs making 1 call to strict::import
9219µs219µs
# spent 13µs (7+6) within Params::Validate::BEGIN@9 which was called: # once (7µs+6µs) by Getopt::Long::Descriptive::BEGIN@10 at line 9
use warnings;
# spent 13µs making 1 call to Params::Validate::BEGIN@9 # spent 6µs making 1 call to warnings::import
10
11218µs234µs
# spent 20µs (6+14) within Params::Validate::BEGIN@11 which was called: # once (6µs+14µs) by Getopt::Long::Descriptive::BEGIN@10 at line 11
use Exporter;
# spent 20µs making 1 call to Params::Validate::BEGIN@11 # spent 14µs making 1 call to Exporter::import
12219µs15µs
# spent 5µs within Params::Validate::BEGIN@12 which was called: # once (5µs+0s) by Getopt::Long::Descriptive::BEGIN@10 at line 12
use Module::Implementation;
# spent 5µs making 1 call to Params::Validate::BEGIN@12
132397µs2675µs
# spent 622µs (537+85) within Params::Validate::BEGIN@13 which was called: # once (537µs+85µs) by Getopt::Long::Descriptive::BEGIN@10 at line 13
use Params::Validate::Constants;
# spent 622µs making 1 call to Params::Validate::BEGIN@13 # spent 53µs making 1 call to Exporter::import
14
152140µs278µs
# spent 42µs (6+36) within Params::Validate::BEGIN@15 which was called: # once (6µs+36µs) by Getopt::Long::Descriptive::BEGIN@10 at line 15
use vars qw( $NO_VALIDATION %OPTIONS $options );
# spent 42µs making 1 call to Params::Validate::BEGIN@15 # spent 36µs making 1 call to vars::import
16
1715µsour @ISA = 'Exporter';
18
1912µsmy %tags = (
20 types => [
21 qw(
22 SCALAR
23 ARRAYREF
24 HASHREF
25 CODEREF
26 GLOB
27 GLOBREF
28 SCALARREF
29 HANDLE
30 BOOLEAN
31 UNDEF
32 OBJECT
33 )
34 ],
35);
36
37our %EXPORT_TAGS = (
38 'all' => [
39 qw( validate validate_pos validation_options validate_with ),
4017µs map { @{ $tags{$_} } } keys %tags
41 ],
42 %tags,
43);
44
4512µsour @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' );
461400nsour @EXPORT = qw( validate validate_pos );
47
481500ns$NO_VALIDATION = $ENV{PERL_NO_VALIDATION};
49
50{
5123µs125µs my $loader = Module::Implementation::build_loader_sub(
# spent 25µs making 1 call to Module::Implementation::build_loader_sub
52 implementations => [ 'XS', 'PP' ],
53 symbols => [
54 qw(
55 validate
56 validate_pos
57 validate_with
58 validation_options
59 set_options
60 ),
61 ],
62 );
63
641900ns $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'PP' if $ENV{PV_TEST_PERL};
65
6614µs12.63ms $loader->();
67}
68
69110µs1;
70
71# ABSTRACT: Validate method/function parameters
72
73__END__