File Coverage

blib/lib/HTML/DOM/Exception.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package HTML::DOM::Exception;
2              
3             use constant {
4             # DOMException:
5 29         4638 INDEX_SIZE_ERR => 1,
6             DOMSTRING_SIZE_ERR => 2,
7             HIERARCHY_REQUEST_ERR => 3,
8             WRONG_DOCUMENT_ERR => 4,
9             INVALID_CHARACTER_ERR => 5,
10             NO_DATA_ALLOWED_ERR => 6,
11             NO_MODIFICATION_ALLOWED_ERR => 7,
12             NOT_FOUND_ERR => 8,
13             NOT_SUPPORTED_ERR => 9,
14             INUSE_ATTRIBUTE_ERR => 10,
15             INVALID_STATE_ERR => 11,
16             SYNTAX_ERR => 12,
17             INVALID_MODIFICATION_ERR => 13,
18             NAMESPACE_ERR => 14,
19             INVALID_ACCESS_ERR => 15,
20              
21             # EventException:
22             UNSPECIFIED_EVENT_TYPE_ERR => 0,
23 29     29   12721 };
  29         32  
24              
25 29     29   106 use Exporter 5.57 'import';
  29         401  
  29         3668  
26              
27             our $VERSION = '0.057';
28             our @EXPORT_OK = qw'
29             INDEX_SIZE_ERR
30             DOMSTRING_SIZE_ERR
31             HIERARCHY_REQUEST_ERR
32             WRONG_DOCUMENT_ERR
33             INVALID_CHARACTER_ERR
34             NO_DATA_ALLOWED_ERR
35             NO_MODIFICATION_ALLOWED_ERR
36             NOT_FOUND_ERR
37             NOT_SUPPORTED_ERR
38             INUSE_ATTRIBUTE_ERR
39             INVALID_STATE_ERR
40             SYNTAX_ERR
41             INVALID_MODIFICATION_ERR
42             NAMESPACE_ERR
43             INVALID_ACCESS_ERR
44              
45             UNSPECIFIED_EVENT_TYPE_ERR
46             ';
47             our %EXPORT_TAGS = (all => [@EXPORT_OK]);
48              
49              
50             use overload
51             fallback => 1,
52             '0+' => \&code,
53 2     2   319 '""' => sub { $_[0][1] =~ /^(.*?)\n?\z/s; "$1\n" },
  2         16  
54 29     29   24770 ;
  29         20578  
  29         216  
55              
56             sub new {
57 61     61 1 70323 bless [@_[1,2]], $_[0];
58             }
59              
60 61     61 1 20274 sub code { $_[0][0] }
61              
62             'true'
63             __END__