Profile of (eval 23)[Class/Struct.pm:230]

← Index
NYTProf Performance Profile
For script/ponapi
Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:09 2016

Filename | (eval 23)[/usr/share/perl/5.18/Class/Struct.pm:230]
Statements | Executed 4 statements in 565µs
Eval Invoked At | /usr/share/perl/5.18/Class/Struct.pm line 230

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 10µs | 43µs | File::stat::::BEGIN@3File::stat::BEGIN@3
0 | 0 | 0 | 0s | 0s | File::stat::::atimeFile::stat::atime
0 | 0 | 0 | 0s | 0s | File::stat::::blksizeFile::stat::blksize
0 | 0 | 0 | 0s | 0s | File::stat::::blocksFile::stat::blocks
0 | 0 | 0 | 0s | 0s | File::stat::::ctimeFile::stat::ctime
0 | 0 | 0 | 0s | 0s | File::stat::::devFile::stat::dev
0 | 0 | 0 | 0s | 0s | File::stat::::gidFile::stat::gid
0 | 0 | 0 | 0s | 0s | File::stat::::inoFile::stat::ino
0 | 0 | 0 | 0s | 0s | File::stat::::modeFile::stat::mode
0 | 0 | 0 | 0s | 0s | File::stat::::mtimeFile::stat::mtime
0 | 0 | 0 | 0s | 0s | File::stat::::newFile::stat::new
0 | 0 | 0 | 0s | 0s | File::stat::::nlinkFile::stat::nlink
0 | 0 | 0 | 0s | 0s | File::stat::::rdevFile::stat::rdev
0 | 0 | 0 | 0s | 0s | File::stat::::sizeFile::stat::size
0 | 0 | 0 | 0s | 0s | File::stat::::uidFile::stat::uid

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | {
2 | 1 | 400ns |  |  | package File::stat;
3 | 2 | 563µs | 2 | 76µs | # spent 43µs (10+33) within File::stat::BEGIN@3 which was called: # once (10µs+33µs) by Class::Struct::struct at line 3 use Carp; # spent 43µs making 1 call to File::stat::BEGIN@3 # spent 33µs making 1 call to Exporter::import
4 |  |  |  |  | sub new {
5 |  |  |  |  | my ($class, %init) = @_;
6 |  |  |  |  | $class = __PACKAGE__ unless @_;
7 |  |  |  |  | my($r) = [];
8 |  |  |  |  | bless $r, $class;
9 |  |  |  |  |
10 |  |  |  |  | $r->dev( defined($init{'dev'}) ? $init{'dev'} : undef ); # dev
11 |  |  |  |  | $r->ino( defined($init{'ino'}) ? $init{'ino'} : undef ); # ino
12 |  |  |  |  | $r->mode( defined($init{'mode'}) ? $init{'mode'} : undef ); # mode
13 |  |  |  |  | $r->nlink( defined($init{'nlink'}) ? $init{'nlink'} : undef ); # nlink
14 |  |  |  |  | $r->uid( defined($init{'uid'}) ? $init{'uid'} : undef ); # uid
15 |  |  |  |  | $r->gid( defined($init{'gid'}) ? $init{'gid'} : undef ); # gid
16 |  |  |  |  | $r->rdev( defined($init{'rdev'}) ? $init{'rdev'} : undef ); # rdev
17 |  |  |  |  | $r->size( defined($init{'size'}) ? $init{'size'} : undef ); # size
18 |  |  |  |  | $r->atime( defined($init{'atime'}) ? $init{'atime'} : undef ); # atime
19 |  |  |  |  | $r->mtime( defined($init{'mtime'}) ? $init{'mtime'} : undef ); # mtime
20 |  |  |  |  | $r->ctime( defined($init{'ctime'}) ? $init{'ctime'} : undef ); # ctime
21 |  |  |  |  | $r->blksize( defined($init{'blksize'}) ? $init{'blksize'} : undef ); # blksize
22 |  |  |  |  | $r->blocks( defined($init{'blocks'}) ? $init{'blocks'} : undef ); # blocks
23 |  |  |  |  |
24 |  |  |  |  | $r;
25 |  |  |  |  | }
26 |  |  |  |  | sub dev {
27 |  |  |  |  | my $r = shift;
28 |  |  |  |  | croak 'Too many args to dev' if @_ > 1;
29 |  |  |  |  | @_ ? ($r->[0] = shift) : $r->[0];
30 |  |  |  |  | }
31 |  |  |  |  | sub ino {
32 |  |  |  |  | my $r = shift;
33 |  |  |  |  | croak 'Too many args to ino' if @_ > 1;
34 |  |  |  |  | @_ ? ($r->[1] = shift) : $r->[1];
35 |  |  |  |  | }
36 |  |  |  |  | sub mode {
37 |  |  |  |  | my $r = shift;
38 |  |  |  |  | croak 'Too many args to mode' if @_ > 1;
39 |  |  |  |  | @_ ? ($r->[2] = shift) : $r->[2];
40 |  |  |  |  | }
41 |  |  |  |  | sub nlink {
42 |  |  |  |  | my $r = shift;
43 |  |  |  |  | croak 'Too many args to nlink' if @_ > 1;
44 |  |  |  |  | @_ ? ($r->[3] = shift) : $r->[3];
45 |  |  |  |  | }
46 |  |  |  |  | sub uid {
47 |  |  |  |  | my $r = shift;
48 |  |  |  |  | croak 'Too many args to uid' if @_ > 1;
49 |  |  |  |  | @_ ? ($r->[4] = shift) : $r->[4];
50 |  |  |  |  | }
51 |  |  |  |  | sub gid {
52 |  |  |  |  | my $r = shift;
53 |  |  |  |  | croak 'Too many args to gid' if @_ > 1;
54 |  |  |  |  | @_ ? ($r->[5] = shift) : $r->[5];
55 |  |  |  |  | }
56 |  |  |  |  | sub rdev {
57 |  |  |  |  | my $r = shift;
58 |  |  |  |  | croak 'Too many args to rdev' if @_ > 1;
59 |  |  |  |  | @_ ? ($r->[6] = shift) : $r->[6];
60 |  |  |  |  | }
61 |  |  |  |  | sub size {
62 |  |  |  |  | my $r = shift;
63 |  |  |  |  | croak 'Too many args to size' if @_ > 1;
64 |  |  |  |  | @_ ? ($r->[7] = shift) : $r->[7];
65 |  |  |  |  | }
66 |  |  |  |  | sub atime {
67 |  |  |  |  | my $r = shift;
68 |  |  |  |  | croak 'Too many args to atime' if @_ > 1;
69 |  |  |  |  | @_ ? ($r->[8] = shift) : $r->[8];
70 |  |  |  |  | }
71 |  |  |  |  | sub mtime {
72 |  |  |  |  | my $r = shift;
73 |  |  |  |  | croak 'Too many args to mtime' if @_ > 1;
74 |  |  |  |  | @_ ? ($r->[9] = shift) : $r->[9];
75 |  |  |  |  | }
76 |  |  |  |  | sub ctime {
77 |  |  |  |  | my $r = shift;
78 |  |  |  |  | croak 'Too many args to ctime' if @_ > 1;
79 |  |  |  |  | @_ ? ($r->[10] = shift) : $r->[10];
80 |  |  |  |  | }
81 |  |  |  |  | sub blksize {
82 |  |  |  |  | my $r = shift;
83 |  |  |  |  | croak 'Too many args to blksize' if @_ > 1;
84 |  |  |  |  | @_ ? ($r->[11] = shift) : $r->[11];
85 |  |  |  |  | }
86 |  |  |  |  | sub blocks {
87 |  |  |  |  | my $r = shift;
88 |  |  |  |  | croak 'Too many args to blocks' if @_ > 1;
89 |  |  |  |  | @_ ? ($r->[12] = shift) : $r->[12];
90 |  |  |  |  | }
91 |  |  |  |  | }
92 | 1 | 2µs |  |  | 1;
93 |  |  |  |  |
94 |  |  |  |  | ;