line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# An example of simple SAX ErrorHandler |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package MyErrorHandler; |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
sub new { |
6
|
0
|
|
|
0
|
0
|
|
my $type = shift; |
7
|
0
|
|
|
|
|
|
return bless {}, $type; |
8
|
|
|
|
|
|
|
} |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub warning { |
11
|
0
|
|
|
0
|
0
|
|
my ($self, $exception) = @_; |
12
|
|
|
|
|
|
|
|
13
|
0
|
|
|
|
|
|
print "\n"; |
14
|
0
|
|
|
|
|
|
print "->Exception: $exception->{Exception}\n"; |
15
|
0
|
|
|
|
|
|
print "->Message: $exception->{Message}\n"; |
16
|
0
|
|
|
|
|
|
print "->LineNumber: $exception->{LineNumber}\n"; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub error { |
20
|
0
|
|
|
0
|
0
|
|
my ($self, $exception) = @_; |
21
|
|
|
|
|
|
|
|
22
|
0
|
|
|
|
|
|
print "\n"; |
23
|
0
|
|
|
|
|
|
print "->Exception: $exception->{Exception}\n"; |
24
|
0
|
|
|
|
|
|
print "->Message: $exception->{Message}\n"; |
25
|
0
|
|
|
|
|
|
print "->LineNumber: $exception->{LineNumber}\n"; |
26
|
|
|
|
|
|
|
} |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
sub fatal_error { |
29
|
0
|
|
|
0
|
0
|
|
my ($self, $exception) = @_; |
30
|
|
|
|
|
|
|
|
31
|
0
|
|
|
|
|
|
print "\n"; |
32
|
0
|
|
|
|
|
|
print "->Exception: $exception->{Exception}\n"; |
33
|
0
|
|
|
|
|
|
print "->Message: $exception->{Message}\n"; |
34
|
0
|
|
|
|
|
|
print "->LineNumber: $exception->{LineNumber}\n"; |
35
|
|
|
|
|
|
|
} |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
1; |