← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:08 2010

File /usr/lib/perl/5.10/POSIX.pm
Statements Executed 58
Total Time 0.0039978 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.80ms7.29msPOSIX::::import POSIX::import
11119µs19µsPOSIX::::AUTOLOAD POSIX::AUTOLOAD
0000s0sPOSIX::::BEGIN POSIX::BEGIN
0000s0sPOSIX::SigAction::::BEGINPOSIX::SigAction::BEGIN
0000s0sPOSIX::SigRt::::BEGIN POSIX::SigRt::BEGIN
0000s0sPOSIX::SigRt::::DESTROY POSIX::SigRt::DESTROY
0000s0sPOSIX::::__ANON__[:55] POSIX::__ANON__[:55]
0000s0sPOSIX::::__ANON__[:59] POSIX::__ANON__[:59]
0000s0sPOSIX::::croak POSIX::croak
0000s0sPOSIX::::load_imports POSIX::load_imports
LineStmts.Exclusive
Time
Avg.Code
1package POSIX;
2331µs10µsuse strict;
# spent 16µs making 1 call to strict::import
3383µs28µsuse warnings;
# spent 19µs making 1 call to warnings::import
4
514µs4µsour(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
6
71600ns600nsour $VERSION = "1.13";
8
9339µs13µsuse AutoLoader;
# spent 841µs making 1 call to AutoLoader::import
10
11358µs19µsuse XSLoader ();
12
13use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
# spent 290µs making 1 call to Exporter::import
14 F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
15 O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
16 O_WRONLY SEEK_CUR SEEK_END SEEK_SET
17 S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
183333µs111µs S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
19
20# Grandfather old foo_h form to new :foo_h form
211200ns200nsmy $loaded;
22
23
# spent 7.29ms (1.80+5.49) within POSIX::import which was called # once (1.80ms+5.49ms) at line 36 of /usr/share/perl5/MARC/Charset/Table.pm
sub import {
24526µs5µs load_imports() unless $loaded++;
# spent 19µs making 1 call to POSIX::AUTOLOAD
25 my $this = shift;
26 my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
27 local $Exporter::ExportLevel = 1;
28 Exporter::import($this,@list);
# spent 5.40ms making 1 call to Exporter::import
29}
30
31sub croak { require Carp; goto &Carp::croak }
32# declare usage to assist AutoLoad
33sub usage;
34
3511.98ms1.98msXSLoader::load 'POSIX', $VERSION;
# spent 1.98ms making 1 call to XSLoader::load
36
37122µs22µsmy %NON_CONSTS = (map {($_,1)}
38 qw(S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG WEXITSTATUS
39 WIFEXITED WIFSIGNALED WIFSTOPPED WSTOPSIG WTERMSIG));
40
41
# spent 19µs within POSIX::AUTOLOAD which was called # once (19µs+0s) by POSIX::import at line 24
sub AUTOLOAD {
42332µs11µs no strict;
# spent 10µs making 1 call to strict::unimport
433296µs99µs no warnings 'uninitialized';
# spent 23µs making 1 call to warnings::unimport
44313µs4µs if ($AUTOLOAD =~ /::(_?[a-z])/) {
45 # require AutoLoader;
46 $AutoLoader::AUTOLOAD = $AUTOLOAD;
47 goto &AutoLoader::AUTOLOAD
48 }
49 local $! = 0;
50 my $constname = $AUTOLOAD;
51 $constname =~ s/.*:://;
52 if ($NON_CONSTS{$constname}) {
53 my ($val, $error) = &int_macro_int($constname, $_[0]);
54 croak $error if $error;
55 *$AUTOLOAD = sub { &int_macro_int($constname, $_[0]) };
56 } else {
57 my ($error, $val) = constant($constname);
58 croak $error if $error;
59 *$AUTOLOAD = sub { $val };
60 }
61
62 goto &$AUTOLOAD;
63}
64
65package POSIX::SigAction;
66
67347µs16µsuse AutoLoader 'AUTOLOAD';
# spent 33µs making 1 call to AutoLoader::import
68
69package POSIX::SigRt;
70
71327µs9µsuse AutoLoader 'AUTOLOAD';
# spent 33µs making 1 call to AutoLoader::import
72
733172µs57µsuse Tie::Hash;
# spent 5µs making 1 call to import
74
75388µs29µsuse vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
# spent 83µs making 1 call to vars::import
76111µs11µs@POSIX::SigRt::ISA = qw(Tie::StdHash);
77
781400ns400ns$SIGACTION_FLAGS = 0;
79
8017µs7µstie %POSIX::SIGRT, 'POSIX::SigRt';
81
82sub DESTROY {};
83
84package POSIX;
85
86116µs16µs1;