← 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:08 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/x86_64-linux/Params/Validate.pm
StatementsExecuted 17 statements in 381µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111426µs756µsParams::Validate::::BEGIN@5Params::Validate::BEGIN@5
11126µs31µsParams::Validate::::BEGIN@3Params::Validate::BEGIN@3
11113µs219µsParams::Validate::::BEGIN@7Params::Validate::BEGIN@7
11112µs45µsParams::Validate::::BEGIN@6Params::Validate::BEGIN@6
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
3237µs236µs
# spent 31µs (26+5) within Params::Validate::BEGIN@3 which was called: # once (26µs+5µs) by Getopt::Long::Descriptive::BEGIN@9 at line 3
use strict;
# spent 31µs making 1 call to Params::Validate::BEGIN@3 # spent 5µs making 1 call to strict::import
4
5
# spent 756µs (426+329) within Params::Validate::BEGIN@5 which was called: # once (426µs+329µs) by Getopt::Long::Descriptive::BEGIN@9 at line 39
BEGIN {
6245µs278µs
# spent 45µs (12+33) within Params::Validate::BEGIN@6 which was called: # once (12µs+33µs) by Getopt::Long::Descriptive::BEGIN@9 at line 6
use Exporter;
# spent 45µs making 1 call to Params::Validate::BEGIN@6 # spent 33µs making 1 call to Exporter::import
71206µs
# spent 219µs (13+206) within Params::Validate::BEGIN@7 which was called: # once (13µs+206µs) by Getopt::Long::Descriptive::BEGIN@9 at line 8
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK
# spent 206µs making 1 call to vars::import
82141µs1219µs %EXPORT_TAGS %OPTIONS $options $NO_VALIDATION );
# spent 219µs making 1 call to Params::Validate::BEGIN@7
9
10940µs @ISA = 'Exporter';
11
12 $VERSION = '0.95';
13
14 my %tags = (
15 types => [
16 qw( SCALAR ARRAYREF HASHREF CODEREF GLOB GLOBREF
17 SCALARREF HANDLE BOOLEAN UNDEF OBJECT )
18 ],
19 );
20
21 %EXPORT_TAGS = (
22 'all' => [
23 qw( validate validate_pos validation_options validate_with ),
24 map { @{ $tags{$_} } } keys %tags
25 ],
26 %tags,
27 );
28
29 @EXPORT_OK = ( @{ $EXPORT_TAGS{all} }, 'set_options' );
30 @EXPORT = qw( validate validate_pos );
31
32 $NO_VALIDATION = $ENV{PERL_NO_VALIDATION};
33
34194µs eval { require Params::ValidateXS; } unless $ENV{PV_TEST_PERL};
35
36 if ( $@ || $ENV{PV_TEST_PERL} ) {
37 require Params::ValidatePP;
38 }
39122µs1756µs}
# spent 756µs making 1 call to Params::Validate::BEGIN@5
40
4113µs1;
42
43__END__