Filename	(eval 15)[/usr/lib/perl5/5.14/Class/Struct.pm:231]
Statements	Executed 4 statements in 1.15ms
Eval Invoked At	/usr/lib/perl5/5.14/Class/Struct.pm line 231

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	23µs	90µ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	2µs			package File::stat;
3	2	1.15ms	2	157µs	# spent 90µs (23+67) within File::stat::BEGIN@3 which was called: # once (23µs+67µs) by Class::Struct::struct at line 3 use Carp; # spent 90µs making 1 call to File::stat::BEGIN@3 # spent 67µ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	8µs			1;
90
91					;