Profile of (eval 1411)[Class/Struct.pm:231]

← Index
NYTProf Performance Profile
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:24:04 2012

Filename | (eval 1411)[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/Class/Struct.pm:231]
Statements | Executed 5 statements in 488µs
Eval Invoked At | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/Class/Struct.pm line 231

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