| 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 | POSIX::import |
| 1 | 1 | 1 | 19µs | 19µs | POSIX::AUTOLOAD |
| 0 | 0 | 0 | 0s | 0s | POSIX::BEGIN |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigAction::BEGIN |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::BEGIN |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::DESTROY |
| 0 | 0 | 0 | 0s | 0s | POSIX::__ANON__[:55] |
| 0 | 0 | 0 | 0s | 0s | POSIX::__ANON__[:59] |
| 0 | 0 | 0 | 0s | 0s | POSIX::croak |
| 0 | 0 | 0 | 0s | 0s | POSIX::load_imports |
| 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 | 1 | 14µs | 14µs | 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 | 2 | 319µs | 160µ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 | 1 | 9µs | 9µs | load_imports() unless $loaded++; # spent 19µs making 1 call to POSIX::AUTOLOAD |
| 25 | 1 | 2µs | 2µs | my $this = shift; |
| 26 | 1 | 1µs | 1µs | my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_; |
| 27 | 1 | 1µs | 1µs | local $Exporter::ExportLevel = 1; |
| 28 | 1 | 13µs | 13µs | 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 | 1 | 7µs | 7µs | if ($AUTOLOAD =~ /::(_?[a-z])/) { |
| 45 | # require AutoLoader; | |||
| 46 | 1 | 2µs | 2µs | $AutoLoader::AUTOLOAD = $AUTOLOAD; |
| 47 | 1 | 5µs | 5µs | 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; |