Profile of XML/SAX.pm

Filename	/usr/share/perl5/XML/SAX.pm
Statements	Executed 153 statements in 2.10ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	727µs	2.03ms	XML::SAX::::BEGIN@18XML::SAX::BEGIN@18
1	1	1	160µs	266µs	XML::SAX::::_parse_ini_fileXML::SAX::_parse_ini_file
1	1	1	75µs	655µs	XML::SAX::::load_parsersXML::SAX::load_parsers
1	1	1	64µs	64µs	XML::SAX::::CORE:openXML::SAX::CORE:open (opcode)
36	3	1	51µs	51µs	XML::SAX::::CORE:substXML::SAX::CORE:subst (opcode)
21	2	1	31µs	31µs	XML::SAX::::CORE:matchXML::SAX::CORE:match (opcode)
4	1	1	29µs	684µs	XML::SAX::::parsersXML::SAX::parsers
13	1	1	25µs	25µs	XML::SAX::::CORE:readlineXML::SAX::CORE:readline (opcode)
1	1	1	21µs	27µs	XML::SAX::::BEGIN@5XML::SAX::BEGIN@5
1	1	1	20µs	106µs	XML::SAX::::BEGIN@15XML::SAX::BEGIN@15
1	1	1	15µs	78µs	XML::SAX::::BEGIN@17XML::SAX::BEGIN@17
1	1	1	13µs	82µs	XML::SAX::::BEGIN@20XML::SAX::BEGIN@20
1	1	1	11µs	84µs	XML::SAX::::BEGIN@6XML::SAX::BEGIN@6
1	1	1	9µs	41µs	XML::SAX::::BEGIN@23XML::SAX::BEGIN@23
1	1	1	9µs	84µs	XML::SAX::::BEGIN@22XML::SAX::BEGIN@22
1	1	1	6µs	6µs	XML::SAX::::BEGIN@10XML::SAX::BEGIN@10
1	1	1	6µs	6µs	XML::SAX::::BEGIN@16XML::SAX::BEGIN@16
0	0	0	0s	0s	XML::SAX::::_is_vendor_suppliedXML::SAX::_is_vendor_supplied
0	0	0	0s	0s	XML::SAX::::add_parserXML::SAX::add_parser
0	0	0	0s	0s	XML::SAX::::do_warnXML::SAX::do_warn
0	0	0	0s	0s	XML::SAX::::remove_parserXML::SAX::remove_parser
0	0	0	0s	0s	XML::SAX::::save_parsersXML::SAX::save_parsers

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					# $Id: SAX.pm,v 1.31 2008-08-05 12:36:24 grant Exp $
2
3					package XML::SAX;
4
5	3	37µs	2	33µs	# spent 27µs (21+6) within XML::SAX::BEGIN@5 which was called: # once (21µs+6µs) by XML::Simple::build_tree at line 5 use strict; # spent 27µs making 1 call to XML::SAX::BEGIN@5 # spent 6µs making 1 call to strict::import
6	3	42µs	2	156µs	# spent 84µs (11+73) within XML::SAX::BEGIN@6 which was called: # once (11µs+73µs) by XML::Simple::build_tree at line 6 use vars qw($VERSION @ISA @EXPORT_OK); # spent 84µs making 1 call to XML::SAX::BEGIN@6 # spent 72µs making 1 call to vars::import
7
8	1	2µs			$VERSION = '0.96';
9
10	3	42µs	1	6µs	# spent 6µs within XML::SAX::BEGIN@10 which was called: # once (6µs+0s) by XML::Simple::build_tree at line 10 use Exporter (); # spent 6µs making 1 call to XML::SAX::BEGIN@10
11	1	24µs			@ISA = ('Exporter');
12
13	1	1µs			@EXPORT_OK = qw(Namespaces Validation);
14
15	3	36µs	2	192µs	# spent 106µs (20+86) within XML::SAX::BEGIN@15 which was called: # once (20µs+86µs) by XML::Simple::build_tree at line 15 use File::Basename qw(dirname); # spent 106µs making 1 call to XML::SAX::BEGIN@15 # spent 86µs making 1 call to Exporter::import
16	3	25µs	1	6µs	# spent 6µs within XML::SAX::BEGIN@16 which was called: # once (6µs+0s) by XML::Simple::build_tree at line 16 use File::Spec (); # spent 6µs making 1 call to XML::SAX::BEGIN@16
17	3	35µs	2	141µs	# spent 78µs (15+63) within XML::SAX::BEGIN@17 which was called: # once (15µs+63µs) by XML::Simple::build_tree at line 17 use Symbol qw(gensym); # spent 78µs making 1 call to XML::SAX::BEGIN@17 # spent 63µs making 1 call to Exporter::import
18	3	134µs	1	2.03ms	# spent 2.03ms (727µs+1.30) within XML::SAX::BEGIN@18 which was called: # once (727µs+1.30ms) by XML::Simple::build_tree at line 18 use XML::SAX::ParserFactory (); # loaded for simplicity # spent 2.03ms making 1 call to XML::SAX::BEGIN@18
19
20	3	36µs	2	150µs	# spent 82µs (13+69) within XML::SAX::BEGIN@20 which was called: # once (13µs+69µs) by XML::Simple::build_tree at line 20 use constant PARSER_DETAILS => "ParserDetails.ini"; # spent 82µs making 1 call to XML::SAX::BEGIN@20 # spent 69µs making 1 call to constant::import
21
22	3	35µs	2	159µs	# spent 84µs (9+75) within XML::SAX::BEGIN@22 which was called: # once (9µs+75µs) by XML::Simple::build_tree at line 22 use constant Namespaces => "http://xml.org/sax/features/namespaces"; # spent 84µs making 1 call to XML::SAX::BEGIN@22 # spent 75µs making 1 call to constant::import
23	3	1.19ms	2	73µs	# spent 41µs (9+32) within XML::SAX::BEGIN@23 which was called: # once (9µs+32µs) by XML::Simple::build_tree at line 23 use constant Validation => "http://xml.org/sax/features/validation"; # spent 41µs making 1 call to XML::SAX::BEGIN@23 # spent 32µs making 1 call to constant::import
24
25	1	1µs			my $known_parsers = undef;
26
27					# load_parsers takes the ParserDetails.ini file out of the same directory
28					# that XML::SAX is in, and looks at it. Format in POD below
29
30					=begin EXAMPLE
31
- -
47					# spent 655µs (75+579) within XML::SAX::load_parsers which was called: # once (75µs+579µs) by XML::SAX::parsers at line 114 sub load_parsers {
48	1	1µs			my $class = shift;
49	1	500ns			my $dir = shift;
50
51					# reset parsers
52	1	2µs			$known_parsers = [];
53
54					# get directory from wherever XML::SAX is installed
55	1	1µs			if (!$dir) {
56	1	3µs			$dir = $INC{'XML/SAX.pm'};
57	1	6µs	1	135µs	$dir = dirname($dir); # spent 135µs making 1 call to File::Basename::dirname
58					}
59
60	1	5µs	1	18µs	my $fh = gensym(); # spent 18µs making 1 call to Symbol::gensym
61	1	85µs	2	159µs	if (!open($fh, File::Spec->catfile($dir, "SAX", PARSER_DETAILS))) { # spent 96µs making 1 call to File::Spec::Unix::catfile # spent 64µs making 1 call to XML::SAX::CORE:open
62					XML::SAX->do_warn("could not find " . PARSER_DETAILS . " in $dir/SAX\n");
63					return $class;
64					}
65
66	1	5µs	1	266µs	$known_parsers = $class->_parse_ini_file($fh); # spent 266µs making 1 call to XML::SAX::_parse_ini_file
67
68	1	28µs			return $class;
69					}
70
71					# spent 266µs (160+107) within XML::SAX::_parse_ini_file which was called: # once (160µs+107µs) by XML::SAX::load_parsers at line 66 sub _parse_ini_file {
72	1	1µs			my $class = shift;
73	1	900ns			my ($fh) = @_;
74
75	1	300ns			my @config;
76
77	1	700ns			my $lineno = 0;
78	1	54µs	13	25µs	while (defined(my $line = <$fh>)) { # spent 25µs making 13 calls to XML::SAX::CORE:readline, avg 2µs/call
79	12	3µs			$lineno++;
80	12	5µs			my $original = $line;
81					# strip whitespace
82	12	58µs	12	36µs	$line =~ s/\s*$//m; # spent 36µs making 12 calls to XML::SAX::CORE:subst, avg 3µs/call
83	12	26µs	12	8µs	$line =~ s/^\s*//m; # spent 8µs making 12 calls to XML::SAX::CORE:subst, avg 658ns/call
84					# strip comments
85	12	22µs	12	6µs	$line =~ s/[#;].*$//m; # spent 6µs making 12 calls to XML::SAX::CORE:subst, avg 542ns/call
86					# ignore blanks
87	12	31µs	12	7µs	next if $line =~ /^$/m; # spent 7µs making 12 calls to XML::SAX::CORE:match, avg 617ns/call
88
89					# heading
90	6	39µs	9	23µs	if ($line =~ /^\[\s(.)\s*\]$/m) { # spent 23µs making 9 calls to XML::SAX::CORE:match, avg 3µs/call
91	3	8µs			push @config, { Name => $1 };
92	3	3µs			next;
93					}
94
95					# instruction
96					elsif ($line =~ /^(.?)\s?=\s(.)$/) {
97	3	2µs			unless(@config) {
98					push @config, { Name => '' };
99					}
100	3	10µs			$config[-1]{Features}{$1} = $2;
101					}
102
103					# not whitespace, comment, or instruction
104					else {
105					die "Invalid line in ini: $lineno\n>>> $original\n";
106					}
107					}
108
109	1	5µs			return \@config;
110					}
111
112					# spent 684µs (29+655) within XML::SAX::parsers which was called 4 times, avg 171µs/call: # 4 times (29µs+655µs) by XML::SAX::ParserFactory::new at line 18 of XML/SAX/ParserFactory.pm, avg 171µs/call sub parsers {
113	4	5µs			my $class = shift;
114	4	7µs	1	655µs	if (!$known_parsers) { # spent 655µs making 1 call to XML::SAX::load_parsers
115					$class->load_parsers();
116					}
117	4	29µs			return $known_parsers;
118					}
119
120					sub remove_parser {
121					my $class = shift;
122					my ($parser_module) = @_;
123
124					if (!$known_parsers) {
125					$class->load_parsers();
126					}
127
128					@$known_parsers = grep { $_->{Name} ne $parser_module } @$known_parsers;
129
130					return $class;
131					}
132
133					sub add_parser {
134					my $class = shift;
135					my ($parser_module) = @_;
136
137					if (!$known_parsers) {
138					$class->load_parsers();
139					}
140
141					# first load module, then query features, then push onto known_parsers,
142
143					my $parser_file = $parser_module;
144					$parser_file =~ s/::/\//g;
145					$parser_file .= ".pm";
146
147					require $parser_file;
148
149					my @features = $parser_module->supported_features();
150
151					my $new = { Name => $parser_module };
152					foreach my $feature (@features) {
153					$new->{Features}{$feature} = 1;
154					}
155
156					# If exists in list already, move to end.
157					my $done = 0;
158					my $pos = undef;
159					for (my $i = 0; $i < @$known_parsers; $i++) {
160					my $p = $known_parsers->[$i];
161					if ($p->{Name} eq $parser_module) {
162					$pos = $i;
163					}
164					}
165					if (defined $pos) {
166					splice(@$known_parsers, $pos, 1);
167					push @$known_parsers, $new;
168					$done++;
169					}
170
171					# Otherwise (not in list), add at end of list.
172					if (!$done) {
173					push @$known_parsers, $new;
174					}
175
176					return $class;
177					}
178
179					sub save_parsers {
180					my $class = shift;
181
182					### DEBIAN MODIFICATION
183					print "\n";
184					print "Please use 'update-perl-sax-parsers(8) to register this parser.'\n";
185					print "See /usr/share/doc/libxml-sax-perl/README.Debian.gz for more info.\n";
186					print "\n";
187
188					return $class; # rest of the function is disabled on Debian.
189					### END DEBIAN MODIFICATION
190
191					# get directory from wherever XML::SAX is installed
192					my $dir = $INC{'XML/SAX.pm'};
193					$dir = dirname($dir);
194
195					my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS);
196					chmod 0644, $file;
197					unlink($file);
198
199					my $fh = gensym();
200					open($fh, ">$file") \|\|
201					die "Cannot write to $file: $!";
202
203					foreach my $p (@$known_parsers) {
204					print $fh "[$p->{Name}]\n";
205					foreach my $key (keys %{$p->{Features}}) {
206					print $fh "$key = $p->{Features}{$key}\n";
207					}
208					print $fh "\n";
209					}
210
211					print $fh "\n";
212
213					close $fh;
214
215					return $class;
216					}
217
218					sub do_warn {
219					my $class = shift;
220					# Don't output warnings if running under Test::Harness
221					warn(@_) unless $ENV{HARNESS_ACTIVE};
222					}
223
224					sub _is_vendor_supplied {
225					1;
226					}
227
228	1	12µs			1;
229					__END__

					# spent 31µs within XML::SAX::CORE:match which was called 21 times, avg 1µs/call: # 12 times (7µs+0s) by XML::SAX::_parse_ini_file at line 87, avg 617ns/call # 9 times (23µs+0s) by XML::SAX::_parse_ini_file at line 90, avg 3µs/call sub XML::SAX::CORE:match; # opcode
					# spent 64µs within XML::SAX::CORE:open which was called: # once (64µs+0s) by XML::SAX::load_parsers at line 61 sub XML::SAX::CORE:open; # opcode
					# spent 25µs within XML::SAX::CORE:readline which was called 13 times, avg 2µs/call: # 13 times (25µs+0s) by XML::SAX::_parse_ini_file at line 78, avg 2µs/call sub XML::SAX::CORE:readline; # opcode
					# spent 51µs within XML::SAX::CORE:subst which was called 36 times, avg 1µs/call: # 12 times (36µs+0s) by XML::SAX::_parse_ini_file at line 82, avg 3µs/call # 12 times (8µs+0s) by XML::SAX::_parse_ini_file at line 83, avg 658ns/call # 12 times (6µs+0s) by XML::SAX::_parse_ini_file at line 85, avg 542ns/call sub XML::SAX::CORE:subst; # opcode