File | /usr/lib/perl/5.10/POSIX.pm |
Statements Executed | 58 |
Total Time | 0.0039978 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 1.80ms | 7.29ms | import | POSIX::
1 | 1 | 1 | 19µs | 19µs | AUTOLOAD | POSIX::
0 | 0 | 0 | 0s | 0s | BEGIN | POSIX::
0 | 0 | 0 | 0s | 0s | BEGIN | POSIX::SigAction::
0 | 0 | 0 | 0s | 0s | BEGIN | POSIX::SigRt::
0 | 0 | 0 | 0s | 0s | DESTROY | POSIX::SigRt::
0 | 0 | 0 | 0s | 0s | __ANON__[:55] | POSIX::
0 | 0 | 0 | 0s | 0s | __ANON__[:59] | POSIX::
0 | 0 | 0 | 0s | 0s | croak | POSIX::
0 | 0 | 0 | 0s | 0s | load_imports | POSIX::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | package POSIX; | |||
2 | 3 | 31µs | 10µs | use strict; # spent 16µs making 1 call to strict::import |
3 | 3 | 83µs | 28µs | use warnings; # spent 19µs making 1 call to warnings::import |
4 | ||||
5 | 1 | 4µs | 4µs | our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = (); |
6 | ||||
7 | 1 | 600ns | 600ns | our $VERSION = "1.13"; |
8 | ||||
9 | 3 | 39µs | 13µs | use AutoLoader; # spent 841µs making 1 call to AutoLoader::import |
10 | ||||
11 | 3 | 58µs | 19µs | use XSLoader (); |
12 | ||||
13 | use 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 | |||
18 | 3 | 333µs | 111µ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 | |||
21 | 1 | 200ns | 200ns | my $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 | |||
24 | 5 | 26µs | 5µ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 | ||||
31 | sub croak { require Carp; goto &Carp::croak } | |||
32 | # declare usage to assist AutoLoad | |||
33 | sub usage; | |||
34 | ||||
35 | 1 | 1.98ms | 1.98ms | XSLoader::load 'POSIX', $VERSION; # spent 1.98ms making 1 call to XSLoader::load |
36 | ||||
37 | 1 | 22µs | 22µs | my %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 | |||
42 | 3 | 32µs | 11µs | no strict; # spent 10µs making 1 call to strict::unimport |
43 | 3 | 296µs | 99µs | no warnings 'uninitialized'; # spent 23µs making 1 call to warnings::unimport |
44 | 3 | 13µs | 4µ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 | ||||
65 | package POSIX::SigAction; | |||
66 | ||||
67 | 3 | 47µs | 16µs | use AutoLoader 'AUTOLOAD'; # spent 33µs making 1 call to AutoLoader::import |
68 | ||||
69 | package POSIX::SigRt; | |||
70 | ||||
71 | 3 | 27µs | 9µs | use AutoLoader 'AUTOLOAD'; # spent 33µs making 1 call to AutoLoader::import |
72 | ||||
73 | 3 | 172µs | 57µs | use Tie::Hash; # spent 5µs making 1 call to import |
74 | ||||
75 | 3 | 88µs | 29µs | use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA); # spent 83µs making 1 call to vars::import |
76 | 1 | 11µs | 11µs | @POSIX::SigRt::ISA = qw(Tie::StdHash); |
77 | ||||
78 | 1 | 400ns | 400ns | $SIGACTION_FLAGS = 0; |
79 | ||||
80 | 1 | 7µs | 7µs | tie %POSIX::SIGRT, 'POSIX::SigRt'; |
81 | ||||
82 | sub DESTROY {}; | |||
83 | ||||
84 | package POSIX; | |||
85 | ||||
86 | 1 | 16µs | 16µs | 1; |