← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:14 2013

Filename/usr/share/perl5/XML/SAX/Exception.pm
StatementsExecuted 18 statements in 686µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11120µs25µsXML::SAX::Exception::::BEGIN@3XML::SAX::Exception::BEGIN@3
11119µs112µsXML::SAX::Exception::::BEGIN@10XML::SAX::Exception::BEGIN@10
11116µs87µsXML::SAX::Exception::::BEGIN@5XML::SAX::Exception::BEGIN@5
11114µs75µsXML::SAX::Exception::::BEGIN@8XML::SAX::Exception::BEGIN@8
0000s0sXML::SAX::Exception::::newXML::SAX::Exception::new
0000s0sXML::SAX::Exception::::stackstringXML::SAX::Exception::stackstring
0000s0sXML::SAX::Exception::::stacktraceXML::SAX::Exception::stacktrace
0000s0sXML::SAX::Exception::::stringifyXML::SAX::Exception::stringify
0000s0sXML::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
1package XML::SAX::Exception;
2
3336µs230µ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
5172µ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
6360µs187µs 'fallback' => 1;
# spent 87µs making 1 call to XML::SAX::Exception::BEGIN@5
7
8393µs2136µ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
91700ns$VERSION = '1.01';
103468µs2204µ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
1212µs$StackTrace = $ENV{XML_DEBUG} || 0;
13
14# Other exception classes:
15
16111µs@XML::SAX::Exception::NotRecognized::ISA = ('XML::SAX::Exception');
1715µs@XML::SAX::Exception::NotSupported::ISA = ('XML::SAX::Exception');
1814µs@XML::SAX::Exception::Parse::ISA = ('XML::SAX::Exception');
19
20
21sub throw {
22 my $class = shift;
23 if (ref($class)) {
24 die $class;
25 }
26 die $class->new(@_);
27}
28
29sub 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
38sub 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
56sub 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
67sub 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
7616µs1;
77
78__END__