Profile of XML/SAX/Exception.pm

Filename	/usr/share/perl5/XML/SAX/Exception.pm
Statements	Executed 18 statements in 686µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	20µs	25µs	XML::SAX::Exception::::BEGIN@3XML::SAX::Exception::BEGIN@3
1	1	1	19µs	112µs	XML::SAX::Exception::::BEGIN@10XML::SAX::Exception::BEGIN@10
1	1	1	16µs	87µs	XML::SAX::Exception::::BEGIN@5XML::SAX::Exception::BEGIN@5
1	1	1	14µs	75µ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	36µs	2	30µs	# spent 25µs (20+5) within XML::SAX::Exception::BEGIN@3 which was called: # once (20µs+5µs) by XML::SAX::ParserFactory::BEGIN@12 at line 3 use strict; # spent 25µs making 1 call to XML::SAX::Exception::BEGIN@3 # spent 5µs making 1 call to strict::import
4
5	1	13µs	1	72µs	# spent 87µs (16+72) within XML::SAX::Exception::BEGIN@5 which was called: # once (16µs+72µs) by XML::SAX::ParserFactory::BEGIN@12 at line 6 use overload '""' => "stringify", # spent 72µs making 1 call to overload::import
6	2	46µs	1	87µs	'fallback' => 1; # spent 87µs making 1 call to XML::SAX::Exception::BEGIN@5
7
8	3	93µs	2	136µs	# spent 75µs (14+61) within XML::SAX::Exception::BEGIN@8 which was called: # once (14µs+61µs) by XML::SAX::ParserFactory::BEGIN@12 at line 8 use vars qw/$StackTrace $VERSION/; # spent 75µs making 1 call to XML::SAX::Exception::BEGIN@8 # spent 61µs making 1 call to vars::import
9	1	700ns			$VERSION = '1.01';
10	3	468µs	2	204µs	# spent 112µs (19+93) within XML::SAX::Exception::BEGIN@10 which was called: # once (19µs+93µs) by XML::SAX::ParserFactory::BEGIN@12 at line 10 use Carp; # spent 112µs making 1 call to XML::SAX::Exception::BEGIN@10 # spent 93µ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	5µs			@XML::SAX::Exception::NotSupported::ISA = ('XML::SAX::Exception');
18	1	4µ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	6µs			1;
77
78					__END__