Profile of XML/SAX/Exception.pm

Filename	/usr/share/perl5/XML/SAX/Exception.pm
Statements	Executed 18 statements in 1.81ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	1.44ms	1.72ms	XML::SAX::Exception::::BEGIN@5XML::SAX::Exception::BEGIN@5
1	1	1	23µs	29µs	XML::SAX::Exception::::BEGIN@3XML::SAX::Exception::BEGIN@3
1	1	1	15µs	84µs	XML::SAX::Exception::::BEGIN@10XML::SAX::Exception::BEGIN@10
1	1	1	14µs	76µs	XML::SAX::Exception::::BEGIN@8XML::SAX::Exception::BEGIN@8
0	0	0	0s	0s	XML::SAX::Exception::::newXML::SAX::Exception::new
0	0	0	0s	0s	XML::SAX::Exception::::stackstringXML::SAX::Exception::stackstring
0	0	0	0s	0s	XML::SAX::Exception::::stacktraceXML::SAX::Exception::stacktrace
0	0	0	0s	0s	XML::SAX::Exception::::stringifyXML::SAX::Exception::stringify
0	0	0	0s	0s	XML::SAX::Exception::::throwXML::SAX::Exception::throw

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package XML::SAX::Exception;
2
3	3	55µs	2	35µs	# spent 29µs (23+6) within XML::SAX::Exception::BEGIN@3 which was called: # once (23µs+6µs) by XML::SAX::ParserFactory::BEGIN@12 at line 3 use strict; # spent 29µs making 1 call to XML::SAX::Exception::BEGIN@3 # spent 6µs making 1 call to strict::import
4
5	1	13µs	1	69µs	# spent 1.72ms (1.44+280µs) within XML::SAX::Exception::BEGIN@5 which was called: # once (1.44ms+280µs) by XML::SAX::ParserFactory::BEGIN@12 at line 6 use overload '""' => "stringify", # spent 69µs making 1 call to overload::import
6	2	1.13ms	1	1.72ms	'fallback' => 1; # spent 1.72ms making 1 call to XML::SAX::Exception::BEGIN@5
7
8	3	48µs	2	138µs	# spent 76µs (14+62) within XML::SAX::Exception::BEGIN@8 which was called: # once (14µs+62µs) by XML::SAX::ParserFactory::BEGIN@12 at line 8 use vars qw/$StackTrace $VERSION/; # spent 76µs making 1 call to XML::SAX::Exception::BEGIN@8 # spent 62µs making 1 call to vars::import
9	1	1µs			$VERSION = '1.01';
10	3	523µs	2	153µs	# spent 84µs (15+69) within XML::SAX::Exception::BEGIN@10 which was called: # once (15µs+69µs) by XML::SAX::ParserFactory::BEGIN@12 at line 10 use Carp; # spent 84µs making 1 call to XML::SAX::Exception::BEGIN@10 # spent 69µs making 1 call to Exporter::import
11
12	1	2µs			$StackTrace = $ENV{XML_DEBUG} \|\| 0;
13
14					# Other exception classes:
15
16	1	11µs			@XML::SAX::Exception::NotRecognized::ISA = ('XML::SAX::Exception');
17	1	8µs			@XML::SAX::Exception::NotSupported::ISA = ('XML::SAX::Exception');
18	1	7µs			@XML::SAX::Exception::Parse::ISA = ('XML::SAX::Exception');
19
20
21					sub throw {
22					my $class = shift;
23					if (ref($class)) {
24					die $class;
25					}
26					die $class->new(@_);
27					}
28
29					sub new {
30					my $class = shift;
31					my %opts = @_;
32					confess "Invalid options: " . join(', ', keys %opts) unless exists $opts{Message};
33
34					bless { ($StackTrace ? (StackTrace => stacktrace()) : ()), %opts },
35					$class;
36					}
37
38					sub stringify {
39					my $self = shift;
40					local $^W;
41					my $error;
42					if (exists $self->{LineNumber}) {
43					$error = $self->{Message} . " [Ln: " . $self->{LineNumber} .
44					", Col: " . $self->{ColumnNumber} . "]";
45					}
46					else {
47					$error = $self->{Message};
48					}
49					if ($StackTrace) {
50					$error .= stackstring($self->{StackTrace});
51					}
52					$error .= "\n";
53					return $error;
54					}
55
56					sub stacktrace {
57					my $i = 2;
58					my @fulltrace;
59					while (my @trace = caller($i++)) {
60					my %hash;
61					@hash{qw(Package Filename Line)} = @trace[0..2];
62					push @fulltrace, \%hash;
63					}
64					return \@fulltrace;
65					}
66
67					sub stackstring {
68					my $stacktrace = shift;
69					my $string = "\nFrom:\n";
70					foreach my $current (@$stacktrace) {
71					$string .= $current->{Filename} . " Line: " . $current->{Line} . "\n";
72					}
73					return $string;
74					}
75
76	1	9µs			1;
77
78					__END__