Profile of Archive/Tar/Constant.pm

Filename	/usr/local/perls/perl-5.26.1/lib/5.26.1/Archive/Tar/Constant.pm
Statements	Executed 339 statements in 8.64ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	3.99ms	15.5ms	Archive::Tar::Constant::::BEGIN@74Archive::Tar::Constant::BEGIN@74
1	1	1	3.16ms	3.16ms	Archive::Tar::Constant::::CORE:ggrgidArchive::Tar::Constant::CORE:ggrgid (opcode)
1	1	1	256µs	461µs	Archive::Tar::Constant::::_list_constsArchive::Tar::Constant::_list_consts
1	1	1	227µs	227µs	Archive::Tar::Constant::::CORE:gpwuidArchive::Tar::Constant::CORE:gpwuid (opcode)
1	1	1	38µs	74µs	Archive::Tar::Constant::::BEGIN@50Archive::Tar::Constant::BEGIN@50
1	1	1	31µs	66µs	Archive::Tar::Constant::::BEGIN@85Archive::Tar::Constant::BEGIN@85
1	1	1	28µs	28µs	Archive::Tar::Constant::::BEGIN@3Archive::Tar::Constant::BEGIN@3
1	1	1	27µs	27µs	Archive::Tar::Constant::::CORE:umaskArchive::Tar::Constant::CORE:umask (opcode)
1	1	1	25µs	28µs	Archive::Tar::Constant::::BEGIN@14Archive::Tar::Constant::BEGIN@14
1	1	1	24µs	116µs	Archive::Tar::Constant::::BEGIN@17Archive::Tar::Constant::BEGIN@17
1	1	1	23µs	60µs	Archive::Tar::Constant::::BEGIN@48Archive::Tar::Constant::BEGIN@48
1	1	1	22µs	97µs	Archive::Tar::Constant::::BEGIN@52Archive::Tar::Constant::BEGIN@52
1	1	1	22µs	67µs	Archive::Tar::Constant::::BEGIN@80Archive::Tar::Constant::BEGIN@80
1	1	1	22µs	61µs	Archive::Tar::Constant::::BEGIN@84Archive::Tar::Constant::BEGIN@84
1	1	1	20µs	53µs	Archive::Tar::Constant::::BEGIN@34Archive::Tar::Constant::BEGIN@34
1	1	1	20µs	58µs	Archive::Tar::Constant::::BEGIN@56Archive::Tar::Constant::BEGIN@56
1	1	1	18µs	33µs	Archive::Tar::Constant::::BEGIN@94Archive::Tar::Constant::BEGIN@94
2	2	1	18µs	18µs	Archive::Tar::Constant::::CORE:sortArchive::Tar::Constant::CORE:sort (opcode)
1	1	1	16µs	41µs	Archive::Tar::Constant::::BEGIN@15Archive::Tar::Constant::BEGIN@15
1	1	1	15µs	66µs	Archive::Tar::Constant::::BEGIN@33Archive::Tar::Constant::BEGIN@33
1	1	1	14µs	49µs	Archive::Tar::Constant::::BEGIN@37Archive::Tar::Constant::BEGIN@37
1	1	1	13µs	67µs	Archive::Tar::Constant::::BEGIN@18Archive::Tar::Constant::BEGIN@18
1	1	1	13µs	49µs	Archive::Tar::Constant::::BEGIN@25Archive::Tar::Constant::BEGIN@25
1	1	1	13µs	46µs	Archive::Tar::Constant::::BEGIN@30Archive::Tar::Constant::BEGIN@30
1	1	1	13µs	51µs	Archive::Tar::Constant::::BEGIN@41Archive::Tar::Constant::BEGIN@41
1	1	1	13µs	48µs	Archive::Tar::Constant::::BEGIN@61Archive::Tar::Constant::BEGIN@61
1	1	1	13µs	47µs	Archive::Tar::Constant::::BEGIN@81Archive::Tar::Constant::BEGIN@81
1	1	1	13µs	48µs	Archive::Tar::Constant::::BEGIN@86Archive::Tar::Constant::BEGIN@86
1	1	1	12µs	46µs	Archive::Tar::Constant::::BEGIN@27Archive::Tar::Constant::BEGIN@27
1	1	1	12µs	50µs	Archive::Tar::Constant::::BEGIN@29Archive::Tar::Constant::BEGIN@29
1	1	1	12µs	54µs	Archive::Tar::Constant::::BEGIN@36Archive::Tar::Constant::BEGIN@36
1	1	1	12µs	46µs	Archive::Tar::Constant::::BEGIN@42Archive::Tar::Constant::BEGIN@42
1	1	1	12µs	43µs	Archive::Tar::Constant::::BEGIN@68Archive::Tar::Constant::BEGIN@68
1	1	1	11µs	46µs	Archive::Tar::Constant::::BEGIN@20Archive::Tar::Constant::BEGIN@20
1	1	1	11µs	46µs	Archive::Tar::Constant::::BEGIN@24Archive::Tar::Constant::BEGIN@24
1	1	1	11µs	58µs	Archive::Tar::Constant::::BEGIN@63Archive::Tar::Constant::BEGIN@63
1	1	1	11µs	48µs	Archive::Tar::Constant::::BEGIN@83Archive::Tar::Constant::BEGIN@83
1	1	1	10µs	47µs	Archive::Tar::Constant::::BEGIN@22Archive::Tar::Constant::BEGIN@22
1	1	1	10µs	46µs	Archive::Tar::Constant::::BEGIN@23Archive::Tar::Constant::BEGIN@23
1	1	1	10µs	49µs	Archive::Tar::Constant::::BEGIN@38Archive::Tar::Constant::BEGIN@38
1	1	1	10µs	46µs	Archive::Tar::Constant::::BEGIN@47Archive::Tar::Constant::BEGIN@47
1	1	1	10µs	46µs	Archive::Tar::Constant::::BEGIN@54Archive::Tar::Constant::BEGIN@54
1	1	1	10µs	43µs	Archive::Tar::Constant::::BEGIN@65Archive::Tar::Constant::BEGIN@65
1	1	1	9µs	46µs	Archive::Tar::Constant::::BEGIN@21Archive::Tar::Constant::BEGIN@21
1	1	1	9µs	42µs	Archive::Tar::Constant::::BEGIN@40Archive::Tar::Constant::BEGIN@40
1	1	1	9µs	48µs	Archive::Tar::Constant::::BEGIN@53Archive::Tar::Constant::BEGIN@53
1	1	1	9µs	42µs	Archive::Tar::Constant::::BEGIN@57Archive::Tar::Constant::BEGIN@57
1	1	1	9µs	56µs	Archive::Tar::Constant::::BEGIN@58Archive::Tar::Constant::BEGIN@58
1	1	1	9µs	42µs	Archive::Tar::Constant::::BEGIN@59Archive::Tar::Constant::BEGIN@59
1	1	1	8µs	48µs	Archive::Tar::Constant::::BEGIN@19Archive::Tar::Constant::BEGIN@19
1	1	1	8µs	47µs	Archive::Tar::Constant::::BEGIN@26Archive::Tar::Constant::BEGIN@26
1	1	1	8µs	46µs	Archive::Tar::Constant::::BEGIN@31Archive::Tar::Constant::BEGIN@31
1	1	1	8µs	58µs	Archive::Tar::Constant::::BEGIN@49Archive::Tar::Constant::BEGIN@49
1	1	1	8µs	63µs	Archive::Tar::Constant::::BEGIN@62Archive::Tar::Constant::BEGIN@62
1	1	1	7µs	43µs	Archive::Tar::Constant::::BEGIN@64Archive::Tar::Constant::BEGIN@64
2	2	1	6µs	6µs	Archive::Tar::Constant::::CORE:qrArchive::Tar::Constant::CORE:qr (opcode)
1	1	1	2µs	2µs	Archive::Tar::Constant::::CORE:matchArchive::Tar::Constant::CORE:match (opcode)
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:36]Archive::Tar::Constant::__ANON__[:36]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:37]Archive::Tar::Constant::__ANON__[:37]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:40]Archive::Tar::Constant::__ANON__[:40]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:41]Archive::Tar::Constant::__ANON__[:41]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:42]Archive::Tar::Constant::__ANON__[:42]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:47]Archive::Tar::Constant::__ANON__[:47]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:48]Archive::Tar::Constant::__ANON__[:48]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:53]Archive::Tar::Constant::__ANON__[:53]
0	0	0	0s	0s	Archive::Tar::Constant::::__ANON__[:83]Archive::Tar::Constant::__ANON__[:83]

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Archive::Tar::Constant;
2
3					# spent 28µs within Archive::Tar::Constant::BEGIN@3 which was called: # once (28µs+0s) by Archive::Tar::File::BEGIN@12 at line 10 BEGIN {
4	1	1µs			require Exporter;
5
6	1	0s			$VERSION = '2.24';
7	1	10µs			@ISA = qw[Exporter];
8
9	1	18µs			require Time::Local if $^O eq "MacOS";
10	1	63µs	1	28µs	} # spent 28µs making 1 call to Archive::Tar::Constant::BEGIN@3
11
12	1	3µs	1	461µs	@EXPORT = Archive::Tar::Constant->_list_consts( __PACKAGE__ ); # spent 461µs making 1 call to Archive::Tar::Constant::_list_consts
13
14	2	35µs	2	31µs	# spent 28µs (25+3) within Archive::Tar::Constant::BEGIN@14 which was called: # once (25µs+3µs) by Archive::Tar::File::BEGIN@12 at line 14 use strict; # spent 28µs making 1 call to Archive::Tar::Constant::BEGIN@14 # spent 3µs making 1 call to strict::import
15	2	52µs	2	66µs	# spent 41µs (16+25) within Archive::Tar::Constant::BEGIN@15 which was called: # once (16µs+25µs) by Archive::Tar::File::BEGIN@12 at line 15 use warnings; # spent 41µs making 1 call to Archive::Tar::Constant::BEGIN@15 # spent 25µs making 1 call to warnings::import
16
17	2	41µs	2	208µs	# spent 116µs (24+92) within Archive::Tar::Constant::BEGIN@17 which was called: # once (24µs+92µs) by Archive::Tar::File::BEGIN@12 at line 17 use constant FILE => 0; # spent 116µs making 1 call to Archive::Tar::Constant::BEGIN@17 # spent 92µs making 1 call to constant::import
18	2	35µs	2	121µs	# spent 67µs (13+54) within Archive::Tar::Constant::BEGIN@18 which was called: # once (13µs+54µs) by Archive::Tar::File::BEGIN@12 at line 18 use constant HARDLINK => 1; # spent 67µs making 1 call to Archive::Tar::Constant::BEGIN@18 # spent 54µs making 1 call to constant::import
19	2	35µs	2	88µs	# spent 48µs (8+40) within Archive::Tar::Constant::BEGIN@19 which was called: # once (8µs+40µs) by Archive::Tar::File::BEGIN@12 at line 19 use constant SYMLINK => 2; # spent 48µs making 1 call to Archive::Tar::Constant::BEGIN@19 # spent 40µs making 1 call to constant::import
20	2	33µs	2	81µs	# spent 46µs (11+35) within Archive::Tar::Constant::BEGIN@20 which was called: # once (11µs+35µs) by Archive::Tar::File::BEGIN@12 at line 20 use constant CHARDEV => 3; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@20 # spent 35µs making 1 call to constant::import
21	2	31µs	2	83µs	# spent 46µs (9+37) within Archive::Tar::Constant::BEGIN@21 which was called: # once (9µs+37µs) by Archive::Tar::File::BEGIN@12 at line 21 use constant BLOCKDEV => 4; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@21 # spent 37µs making 1 call to constant::import
22	2	34µs	2	84µs	# spent 47µs (10+37) within Archive::Tar::Constant::BEGIN@22 which was called: # once (10µs+37µs) by Archive::Tar::File::BEGIN@12 at line 22 use constant DIR => 5; # spent 47µs making 1 call to Archive::Tar::Constant::BEGIN@22 # spent 37µs making 1 call to constant::import
23	2	37µs	2	82µs	# spent 46µs (10+36) within Archive::Tar::Constant::BEGIN@23 which was called: # once (10µs+36µs) by Archive::Tar::File::BEGIN@12 at line 23 use constant FIFO => 6; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@23 # spent 36µs making 1 call to constant::import
24	2	32µs	2	81µs	# spent 46µs (11+35) within Archive::Tar::Constant::BEGIN@24 which was called: # once (11µs+35µs) by Archive::Tar::File::BEGIN@12 at line 24 use constant SOCKET => 8; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@24 # spent 35µs making 1 call to constant::import
25	2	69µs	2	85µs	# spent 49µs (13+36) within Archive::Tar::Constant::BEGIN@25 which was called: # once (13µs+36µs) by Archive::Tar::File::BEGIN@12 at line 25 use constant UNKNOWN => 9; # spent 49µs making 1 call to Archive::Tar::Constant::BEGIN@25 # spent 36µs making 1 call to constant::import
26	2	34µs	2	86µs	# spent 47µs (8+39) within Archive::Tar::Constant::BEGIN@26 which was called: # once (8µs+39µs) by Archive::Tar::File::BEGIN@12 at line 26 use constant LONGLINK => 'L'; # spent 47µs making 1 call to Archive::Tar::Constant::BEGIN@26 # spent 39µs making 1 call to constant::import
27	2	35µs	2	80µs	# spent 46µs (12+34) within Archive::Tar::Constant::BEGIN@27 which was called: # once (12µs+34µs) by Archive::Tar::File::BEGIN@12 at line 27 use constant LABEL => 'V'; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@27 # spent 34µs making 1 call to constant::import
28
29	2	39µs	2	88µs	# spent 50µs (12+38) within Archive::Tar::Constant::BEGIN@29 which was called: # once (12µs+38µs) by Archive::Tar::File::BEGIN@12 at line 29 use constant BUFFER => 4096; # spent 50µs making 1 call to Archive::Tar::Constant::BEGIN@29 # spent 38µs making 1 call to constant::import
30	2	31µs	2	79µs	# spent 46µs (13+33) within Archive::Tar::Constant::BEGIN@30 which was called: # once (13µs+33µs) by Archive::Tar::File::BEGIN@12 at line 30 use constant HEAD => 512; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@30 # spent 33µs making 1 call to constant::import
31	2	35µs	2	84µs	# spent 46µs (8+38) within Archive::Tar::Constant::BEGIN@31 which was called: # once (8µs+38µs) by Archive::Tar::File::BEGIN@12 at line 31 use constant BLOCK => 512; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@31 # spent 38µs making 1 call to constant::import
32
33	2	35µs	2	117µs	# spent 66µs (15+51) within Archive::Tar::Constant::BEGIN@33 which was called: # once (15µs+51µs) by Archive::Tar::File::BEGIN@12 at line 33 use constant COMPRESS_GZIP => 9; # spent 66µs making 1 call to Archive::Tar::Constant::BEGIN@33 # spent 51µs making 1 call to constant::import
34	2	87µs	2	86µs	# spent 53µs (20+33) within Archive::Tar::Constant::BEGIN@34 which was called: # once (20µs+33µs) by Archive::Tar::File::BEGIN@12 at line 34 use constant COMPRESS_BZIP => 'bzip2'; # spent 53µs making 1 call to Archive::Tar::Constant::BEGIN@34 # spent 33µs making 1 call to constant::import
35
36	2	85µs	2	96µs	# spent 54µs (12+42) within Archive::Tar::Constant::BEGIN@36 which was called: # once (12µs+42µs) by Archive::Tar::File::BEGIN@12 at line 36 use constant BLOCK_SIZE => sub { my $n = int($_[0]/BLOCK); $n++ if $_[0] % BLOCK; $n * BLOCK }; # spent 54µs making 1 call to Archive::Tar::Constant::BEGIN@36 # spent 42µs making 1 call to constant::import
37	2	51µs	2	84µs	# spent 49µs (14+35) within Archive::Tar::Constant::BEGIN@37 which was called: # once (14µs+35µs) by Archive::Tar::File::BEGIN@12 at line 37 use constant TAR_PAD => sub { my $x = shift \|\| return; return "\0" x (BLOCK - ($x % BLOCK) ) }; # spent 49µs making 1 call to Archive::Tar::Constant::BEGIN@37 # spent 35µs making 1 call to constant::import
38	2	53µs	2	88µs	# spent 49µs (10+39) within Archive::Tar::Constant::BEGIN@38 which was called: # once (10µs+39µs) by Archive::Tar::File::BEGIN@12 at line 38 use constant TAR_END => "\0" x BLOCK; # spent 49µs making 1 call to Archive::Tar::Constant::BEGIN@38 # spent 39µs making 1 call to constant::import
39
40	2	64µs	2	75µs	# spent 42µs (9+33) within Archive::Tar::Constant::BEGIN@40 which was called: # once (9µs+33µs) by Archive::Tar::File::BEGIN@12 at line 40 use constant READ_ONLY => sub { shift() ? 'rb' : 'r' }; # spent 42µs making 1 call to Archive::Tar::Constant::BEGIN@40 # spent 33µs making 1 call to constant::import
41	2	77µs	2	89µs	# spent 51µs (13+38) within Archive::Tar::Constant::BEGIN@41 which was called: # once (13µs+38µs) by Archive::Tar::File::BEGIN@12 at line 41 use constant WRITE_ONLY => sub { $_[0] ? 'wb' . shift : 'w' }; # spent 51µs making 1 call to Archive::Tar::Constant::BEGIN@41 # spent 38µs making 1 call to constant::import
42	2	101µs	2	80µs	# spent 46µs (12+34) within Archive::Tar::Constant::BEGIN@42 which was called: # once (12µs+34µs) by Archive::Tar::File::BEGIN@12 at line 42 use constant MODE_READ => sub { $_[0] =~ /^r/ ? 1 : 0 }; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@42 # spent 34µs making 1 call to constant::import
43
44					# Pointless assignment to make -w shut up
45	3	243µs	1	227µs	my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); }; # spent 227µs making 1 call to Archive::Tar::Constant::CORE:gpwuid
46	3	3.19ms	1	3.16ms	my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); }; # spent 3.16ms making 1 call to Archive::Tar::Constant::CORE:ggrgid
47	2	68µs	2	82µs	# spent 46µs (10+36) within Archive::Tar::Constant::BEGIN@47 which was called: # once (10µs+36µs) by Archive::Tar::File::BEGIN@12 at line 47 use constant UNAME => sub { $getpwuid \|\| scalar getpwuid( shift() ) \|\| '' }; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@47 # spent 36µs making 1 call to constant::import
48	2	53µs	2	97µs	# spent 60µs (23+37) within Archive::Tar::Constant::BEGIN@48 which was called: # once (23µs+37µs) by Archive::Tar::File::BEGIN@12 at line 48 use constant GNAME => sub { $getgrgid \|\| scalar getgrgid( shift() ) \|\| '' }; # spent 60µs making 1 call to Archive::Tar::Constant::BEGIN@48 # spent 37µs making 1 call to constant::import
49	2	70µs	2	108µs	# spent 58µs (8+50) within Archive::Tar::Constant::BEGIN@49 which was called: # once (8µs+50µs) by Archive::Tar::File::BEGIN@12 at line 49 use constant UID => $>; # spent 58µs making 1 call to Archive::Tar::Constant::BEGIN@49 # spent 50µs making 1 call to constant::import
50	2	76µs	2	110µs	# spent 74µs (38+36) within Archive::Tar::Constant::BEGIN@50 which was called: # once (38µs+36µs) by Archive::Tar::File::BEGIN@12 at line 50 use constant GID => (split ' ', $) )[0]; # spent 74µs making 1 call to Archive::Tar::Constant::BEGIN@50 # spent 36µs making 1 call to constant::import
51
52	2	98µs	3	172µs	# spent 97µs (22+75) within Archive::Tar::Constant::BEGIN@52 which was called: # once (22µs+75µs) by Archive::Tar::File::BEGIN@12 at line 52 use constant MODE => do { 0666 & (0777 & ~umask) }; # spent 97µs making 1 call to Archive::Tar::Constant::BEGIN@52 # spent 48µs making 1 call to constant::import # spent 27µs making 1 call to Archive::Tar::Constant::CORE:umask
53	2	34µs	2	87µs	# spent 48µs (9+39) within Archive::Tar::Constant::BEGIN@53 which was called: # once (9µs+39µs) by Archive::Tar::File::BEGIN@12 at line 53 use constant STRIP_MODE => sub { shift() & 0777 }; # spent 48µs making 1 call to Archive::Tar::Constant::BEGIN@53 # spent 39µs making 1 call to constant::import
54	2	44µs	2	82µs	# spent 46µs (10+36) within Archive::Tar::Constant::BEGIN@54 which was called: # once (10µs+36µs) by Archive::Tar::File::BEGIN@12 at line 54 use constant CHECK_SUM => " "; # spent 46µs making 1 call to Archive::Tar::Constant::BEGIN@54 # spent 36µs making 1 call to constant::import
55
56	2	39µs	2	96µs	# spent 58µs (20+38) within Archive::Tar::Constant::BEGIN@56 which was called: # once (20µs+38µs) by Archive::Tar::File::BEGIN@12 at line 56 use constant UNPACK => 'a100 a8 a8 a8 a12 a12 a8 a1 a100 A6 a2 a32 a32 a8 a8 a155 x12'; # cdrake - size must be a12 - not A12 - or else screws up huge file sizes (>8gb) # spent 58µs making 1 call to Archive::Tar::Constant::BEGIN@56 # spent 38µs making 1 call to constant::import
57	2	48µs	2	75µs	# spent 42µs (9+33) within Archive::Tar::Constant::BEGIN@57 which was called: # once (9µs+33µs) by Archive::Tar::File::BEGIN@12 at line 57 use constant PACK => 'a100 a8 a8 a8 a12 a12 A8 a1 a100 a6 a2 a32 a32 a8 a8 a155 x12'; # spent 42µs making 1 call to Archive::Tar::Constant::BEGIN@57 # spent 33µs making 1 call to constant::import
58	2	34µs	2	103µs	# spent 56µs (9+47) within Archive::Tar::Constant::BEGIN@58 which was called: # once (9µs+47µs) by Archive::Tar::File::BEGIN@12 at line 58 use constant NAME_LENGTH => 100; # spent 56µs making 1 call to Archive::Tar::Constant::BEGIN@58 # spent 47µs making 1 call to constant::import
59	2	56µs	2	75µs	# spent 42µs (9+33) within Archive::Tar::Constant::BEGIN@59 which was called: # once (9µs+33µs) by Archive::Tar::File::BEGIN@12 at line 59 use constant PREFIX_LENGTH => 155; # spent 42µs making 1 call to Archive::Tar::Constant::BEGIN@59 # spent 33µs making 1 call to constant::import
60
61	2	39µs	2	83µs	# spent 48µs (13+35) within Archive::Tar::Constant::BEGIN@61 which was called: # once (13µs+35µs) by Archive::Tar::File::BEGIN@12 at line 61 use constant TIME_OFFSET => ($^O eq "MacOS") ? Time::Local::timelocal(0,0,0,1,0,70) : 0; # spent 48µs making 1 call to Archive::Tar::Constant::BEGIN@61 # spent 35µs making 1 call to constant::import
62	2	40µs	2	118µs	# spent 63µs (8+55) within Archive::Tar::Constant::BEGIN@62 which was called: # once (8µs+55µs) by Archive::Tar::File::BEGIN@12 at line 62 use constant MAGIC => "ustar"; # spent 63µs making 1 call to Archive::Tar::Constant::BEGIN@62 # spent 55µs making 1 call to constant::import
63	2	30µs	2	105µs	# spent 58µs (11+47) within Archive::Tar::Constant::BEGIN@63 which was called: # once (11µs+47µs) by Archive::Tar::File::BEGIN@12 at line 63 use constant TAR_VERSION => "00"; # spent 58µs making 1 call to Archive::Tar::Constant::BEGIN@63 # spent 47µs making 1 call to constant::import
64	2	32µs	2	79µs	# spent 43µs (7+36) within Archive::Tar::Constant::BEGIN@64 which was called: # once (7µs+36µs) by Archive::Tar::File::BEGIN@12 at line 64 use constant LONGLINK_NAME => '././@LongLink'; # spent 43µs making 1 call to Archive::Tar::Constant::BEGIN@64 # spent 36µs making 1 call to constant::import
65	2	68µs	2	76µs	# spent 43µs (10+33) within Archive::Tar::Constant::BEGIN@65 which was called: # once (10µs+33µs) by Archive::Tar::File::BEGIN@12 at line 65 use constant PAX_HEADER => 'pax_global_header'; # spent 43µs making 1 call to Archive::Tar::Constant::BEGIN@65 # spent 33µs making 1 call to constant::import
66
67					### allow ZLIB to be turned off using ENV: DEBUG only
68	1	1µs			# spent 43µs (12+31) within Archive::Tar::Constant::BEGIN@68 which was called: # once (12µs+31µs) by Archive::Tar::File::BEGIN@12 at line 71 use constant ZLIB => do { !$ENV{'PERL5_AT_NO_ZLIB'} and
69	2	2µs			eval { require IO::Zlib };
70	1	1µs			$ENV{'PERL5_AT_NO_ZLIB'} \|\| $@ ? 0 : 1
71	1	115µs	2	74µs	}; # spent 43µs making 1 call to Archive::Tar::Constant::BEGIN@68 # spent 31µs making 1 call to constant::import
72
73					### allow BZIP to be turned off using ENV: DEBUG only
74	1	1µs			# spent 15.5ms (3.99+11.5) within Archive::Tar::Constant::BEGIN@74 which was called: # once (3.99ms+11.5ms) by Archive::Tar::File::BEGIN@12 at line 78 use constant BZIP => do { !$ENV{'PERL5_AT_NO_BZIP'} and
75	2	550µs			eval { require IO::Uncompress::Bunzip2;
76	1	1.31ms			require IO::Compress::Bzip2; };
77	1	2µs			$ENV{'PERL5_AT_NO_BZIP'} \|\| $@ ? 0 : 1
78	1	93µs	2	15.5ms	}; # spent 15.5ms making 1 call to Archive::Tar::Constant::BEGIN@74 # spent 56µs making 1 call to constant::import
79
80	2	67µs	3	112µs	# spent 67µs (22+45) within Archive::Tar::Constant::BEGIN@80 which was called: # once (22µs+45µs) by Archive::Tar::File::BEGIN@12 at line 80 use constant GZIP_MAGIC_NUM => qr/^(?:\037\213\|\037\235)/; # spent 67µs making 1 call to Archive::Tar::Constant::BEGIN@80 # spent 40µs making 1 call to constant::import # spent 5µs making 1 call to Archive::Tar::Constant::CORE:qr
81	2	79µs	3	81µs	# spent 47µs (13+34) within Archive::Tar::Constant::BEGIN@81 which was called: # once (13µs+34µs) by Archive::Tar::File::BEGIN@12 at line 81 use constant BZIP_MAGIC_NUM => qr/^BZh\d/; # spent 47µs making 1 call to Archive::Tar::Constant::BEGIN@81 # spent 33µs making 1 call to constant::import # spent 1µs making 1 call to Archive::Tar::Constant::CORE:qr
82
83	2	73µs	2	85µs	# spent 48µs (11+37) within Archive::Tar::Constant::BEGIN@83 which was called: # once (11µs+37µs) by Archive::Tar::File::BEGIN@12 at line 83 use constant CAN_CHOWN => sub { ($> == 0 and $^O ne "MacOS" and $^O ne "MSWin32") }; # spent 48µs making 1 call to Archive::Tar::Constant::BEGIN@83 # spent 37µs making 1 call to constant::import
84	2	78µs	3	100µs	# spent 61µs (22+39) within Archive::Tar::Constant::BEGIN@84 which was called: # once (22µs+39µs) by Archive::Tar::File::BEGIN@12 at line 84 use constant CAN_READLINK => ($^O ne 'MSWin32' and $^O !~ /RISC(?:[ _])?OS/i and $^O ne 'VMS'); # spent 61µs making 1 call to Archive::Tar::Constant::BEGIN@84 # spent 37µs making 1 call to constant::import # spent 2µs making 1 call to Archive::Tar::Constant::CORE:match
85	2	44µs	2	101µs	# spent 66µs (31+35) within Archive::Tar::Constant::BEGIN@85 which was called: # once (31µs+35µs) by Archive::Tar::File::BEGIN@12 at line 85 use constant ON_UNIX => ($^O ne 'MSWin32' and $^O ne 'MacOS' and $^O ne 'VMS'); # spent 66µs making 1 call to Archive::Tar::Constant::BEGIN@85 # spent 35µs making 1 call to constant::import
86	2	69µs	2	83µs	# spent 48µs (13+35) within Archive::Tar::Constant::BEGIN@86 which was called: # once (13µs+35µs) by Archive::Tar::File::BEGIN@12 at line 86 use constant ON_VMS => $^O eq 'VMS'; # spent 48µs making 1 call to Archive::Tar::Constant::BEGIN@86 # spent 35µs making 1 call to constant::import
87
88					# spent 461µs (256+205) within Archive::Tar::Constant::_list_consts which was called: # once (256µs+205µs) by Archive::Tar::File::BEGIN@12 at line 12 sub _list_consts {
89	1	0s			my $class = shift;
90	1	1µs			my $pkg = shift;
91	1	0s			return unless defined $pkg; # some joker might use '0' as a pkg...
92
93	1	0s			my @rv;
94	3	150µs	2	48µs	# spent 33µs (18+15) within Archive::Tar::Constant::BEGIN@94 which was called: # once (18µs+15µs) by Archive::Tar::File::BEGIN@12 at line 94 { no strict 'refs'; # spent 33µs making 1 call to Archive::Tar::Constant::BEGIN@94 # spent 15µs making 1 call to strict::unimport
95	1	1µs			my $stash = $pkg . '::';
96
97	1	34µs	1	15µs	for my $name (sort keys %$stash ) { # spent 15µs making 1 call to Archive::Tar::Constant::CORE:sort
98
99					### is it a subentry?
100	60	318µs	60	187µs	my $sub = $pkg->can( $name ); # spent 187µs making 60 calls to UNIVERSAL::can, avg 3µs/call
101	60	13µs			next unless defined $sub;
102
103	48	43µs			next unless defined prototype($sub) and
104					not length prototype($sub);
105
106	46	36µs			push @rv, $name;
107					}
108					}
109
110	1	17µs	1	3µs	return sort @rv; # spent 3µs making 1 call to Archive::Tar::Constant::CORE:sort
111					}
112
113	1	17µs			1;

					# spent 3.16ms within Archive::Tar::Constant::CORE:ggrgid which was called: # once (3.16ms+0s) by Archive::Tar::File::BEGIN@12 at line 46 sub Archive::Tar::Constant::CORE:ggrgid; # opcode
					# spent 227µs within Archive::Tar::Constant::CORE:gpwuid which was called: # once (227µs+0s) by Archive::Tar::File::BEGIN@12 at line 45 sub Archive::Tar::Constant::CORE:gpwuid; # opcode
					# spent 2µs within Archive::Tar::Constant::CORE:match which was called: # once (2µs+0s) by Archive::Tar::Constant::BEGIN@84 at line 84 sub Archive::Tar::Constant::CORE:match; # opcode
					# spent 6µs within Archive::Tar::Constant::CORE:qr which was called 2 times, avg 3µs/call: # once (5µs+0s) by Archive::Tar::Constant::BEGIN@80 at line 80 # once (1µs+0s) by Archive::Tar::Constant::BEGIN@81 at line 81 sub Archive::Tar::Constant::CORE:qr; # opcode
					# spent 18µs within Archive::Tar::Constant::CORE:sort which was called 2 times, avg 9µs/call: # once (15µs+0s) by Archive::Tar::Constant::_list_consts at line 97 # once (3µs+0s) by Archive::Tar::Constant::_list_consts at line 110 sub Archive::Tar::Constant::CORE:sort; # opcode
					# spent 27µs within Archive::Tar::Constant::CORE:umask which was called: # once (27µs+0s) by Archive::Tar::Constant::BEGIN@52 at line 52 sub Archive::Tar::Constant::CORE:umask; # opcode