← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/getfix
  Run on Thu May 20 15:30:03 2010
Reported on Thu May 20 16:25:29 2010

File/opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Gzip/Constants.pm
Statements Executed101
Total Time0.001205 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
00000IO::Compress::Gzip::Constants::BEGIN

LineStmts.Exclusive
Time		Avg.Code
1package IO::Compress::Gzip::Constants;
2
332.9e-59.7e-6use strict ;
# spent 9µs making 1 call to strict::import
432.6e-58.7e-6use warnings;
# spent 27µs making 1 call to warnings::import
530.000134.4e-5use bytes;
# spent 7µs making 1 call to bytes::import
6
713.0e-63.0e-6require Exporter;
8
9100our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names);
1011.0e-61.0e-6our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE);
11
1211.0e-61.0e-6$VERSION = '2.008';
13
1416.0e-66.0e-6@ISA = qw(Exporter);
15
1617.0e-67.0e-6@EXPORT= qw(
17
18 GZIP_ID_SIZE
19 GZIP_ID1
20 GZIP_ID2
21
22 GZIP_FLG_DEFAULT
23 GZIP_FLG_FTEXT
24 GZIP_FLG_FHCRC
25 GZIP_FLG_FEXTRA
26 GZIP_FLG_FNAME
27 GZIP_FLG_FCOMMENT
28 GZIP_FLG_RESERVED
29
30 GZIP_CM_DEFLATED
31
32 GZIP_MIN_HEADER_SIZE
33 GZIP_TRAILER_SIZE
34
35 GZIP_MTIME_DEFAULT
36 GZIP_XFL_DEFAULT
37 GZIP_FEXTRA_HEADER_SIZE
38 GZIP_FEXTRA_MAX_SIZE
39 GZIP_FEXTRA_SUBFIELD_HEADER_SIZE
40 GZIP_FEXTRA_SUBFIELD_ID_SIZE
41 GZIP_FEXTRA_SUBFIELD_LEN_SIZE
42 GZIP_FEXTRA_SUBFIELD_MAX_SIZE
43
44 $GZIP_FNAME_INVALID_CHAR_RE
45 $GZIP_FCOMMENT_INVALID_CHAR_RE
46
47 GZIP_FHCRC_SIZE
48
49 GZIP_ISIZE_MAX
50 GZIP_ISIZE_MOD_VALUE
51
52
53 GZIP_NULL_BYTE
54
55 GZIP_OS_DEFAULT
56
57 %GZIP_OS_Names
58
59 GZIP_MINIMUM_HEADER
60
61 );
62
63# Constant names derived from RFC 1952
64
6533.7e-51.2e-5use constant GZIP_ID_SIZE => 2 ;
# spent 80µs making 1 call to constant::import
6632.9e-59.7e-6use constant GZIP_ID1 => 0x1F;
# spent 43µs making 1 call to constant::import
6732.8e-59.3e-6use constant GZIP_ID2 => 0x8B;
# spent 43µs making 1 call to constant::import
68
6932.8e-59.3e-6use constant GZIP_MIN_HEADER_SIZE => 10 ;# minimum gzip header size
# spent 43µs making 1 call to constant::import
7033.2e-51.1e-5use constant GZIP_TRAILER_SIZE => 8 ;
# spent 46µs making 1 call to constant::import
71
72
7332.7e-59.0e-6use constant GZIP_FLG_DEFAULT => 0x00 ;
# spent 47µs making 1 call to constant::import
7432.7e-59.0e-6use constant GZIP_FLG_FTEXT => 0x01 ;
# spent 45µs making 1 call to constant::import
7532.8e-59.3e-6use constant GZIP_FLG_FHCRC => 0x02 ; # called CONTINUATION in gzip
# spent 42µs making 1 call to constant::import
7633.2e-51.1e-5use constant GZIP_FLG_FEXTRA => 0x04 ;
# spent 45µs making 1 call to constant::import
7732.8e-59.3e-6use constant GZIP_FLG_FNAME => 0x08 ;
# spent 44µs making 1 call to constant::import
7833.2e-51.1e-5use constant GZIP_FLG_FCOMMENT => 0x10 ;
# spent 40µs making 1 call to constant::import
79#use constant GZIP_FLG_ENCRYPTED => 0x20 ; # documented in gzip sources
8033.1e-51.0e-5use constant GZIP_FLG_RESERVED => (0x20 | 0x40 | 0x80) ;
# spent 44µs making 1 call to constant::import
81
8232.9e-59.7e-6use constant GZIP_XFL_DEFAULT => 0x00 ;
# spent 41µs making 1 call to constant::import
83
8433.1e-51.0e-5use constant GZIP_MTIME_DEFAULT => 0x00 ;
# spent 52µs making 1 call to constant::import
85
8632.6e-58.7e-6use constant GZIP_FEXTRA_HEADER_SIZE => 2 ;
# spent 57µs making 1 call to constant::import
8732.7e-59.0e-6use constant GZIP_FEXTRA_MAX_SIZE => 0xFF ;
# spent 49µs making 1 call to constant::import
8832.8e-59.3e-6use constant GZIP_FEXTRA_SUBFIELD_ID_SIZE => 2 ;
# spent 42µs making 1 call to constant::import
8933.7e-51.2e-5use constant GZIP_FEXTRA_SUBFIELD_LEN_SIZE => 2 ;
# spent 50µs making 1 call to constant::import
90use constant GZIP_FEXTRA_SUBFIELD_HEADER_SIZE => GZIP_FEXTRA_SUBFIELD_ID_SIZE +
# spent 58µs making 1 call to constant::import
9134.7e-51.6e-5 GZIP_FEXTRA_SUBFIELD_LEN_SIZE;
92use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE => GZIP_FEXTRA_MAX_SIZE -
# spent 42µs making 1 call to constant::import
9337.8e-52.6e-5 GZIP_FEXTRA_SUBFIELD_HEADER_SIZE ;
94
95
9633.0e-61.0e-6if (ord('A') == 193)
97{
98 # EBCDIC
99 $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x3f\xff]';
100 $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x0a\x11-\x14\x16-\x3f\xff]';
101
102}
103else
104{
105 $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x1F\x7F-\x9F]';
106 $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x09\x11-\x1F\x7F-\x9F]';
107}
108
10933.5e-51.2e-5use constant GZIP_FHCRC_SIZE => 2 ; # aka CONTINUATION in gzip
# spent 50µs making 1 call to constant::import
110
11133.5e-51.2e-5use constant GZIP_CM_DEFLATED => 8 ;
# spent 41µs making 1 call to constant::import
112
11332.6e-58.7e-6use constant GZIP_NULL_BYTE => "\x00";
# spent 47µs making 1 call to constant::import
11433.2e-51.1e-5use constant GZIP_ISIZE_MAX => 0xFFFFFFFF ;
# spent 41µs making 1 call to constant::import
11532.9e-59.7e-6use constant GZIP_ISIZE_MOD_VALUE => GZIP_ISIZE_MAX + 1 ;
# spent 48µs making 1 call to constant::import
116
117# OS Names sourced from http://www.gzip.org/format.txt
118
11938.0e-52.7e-5use constant GZIP_OS_DEFAULT=> 0xFF ;
# spent 42µs making 1 call to constant::import
12012.2e-52.2e-5%GZIP_OS_Names = (
121 0 => 'MS-DOS',
122 1 => 'Amiga',
123 2 => 'VMS',
124 3 => 'Unix',
125 4 => 'VM/CMS',
126 5 => 'Atari TOS',
127 6 => 'HPFS (OS/2, NT)',
128 7 => 'Macintosh',
129 8 => 'Z-System',
130 9 => 'CP/M',
131 10 => 'TOPS-20',
132 11 => 'NTFS (NT)',
133 12 => 'SMS QDOS',
134 13 => 'Acorn RISCOS',
135 14 => 'VFAT file system (Win95, NT)',
136 15 => 'MVS',
137 16 => 'BeOS',
138 17 => 'Tandem/NSK',
139 18 => 'THEOS',
140 GZIP_OS_DEFAULT() => 'Unknown',
141 ) ;
142
143use constant GZIP_MINIMUM_HEADER => pack("C4 V C C",
# spent 44µs making 1 call to constant::import
144 GZIP_ID1, GZIP_ID2, GZIP_CM_DEFLATED, GZIP_FLG_DEFAULT,
14535.8e-51.9e-5 GZIP_MTIME_DEFAULT, GZIP_XFL_DEFAULT, GZIP_OS_DEFAULT) ;
146
147
14811.7e-51.7e-51;

Report produced by the NYTProf 2.07 Perl profiler, developed by Tim Bunce and Adam Kaplan.