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

package HTML::DOM::Exception;

use constant {
# DOMException:
	INDEX_SIZE_ERR              => 1,
	DOMSTRING_SIZE_ERR          => 2,
	HIERARCHY_REQUEST_ERR       => 3,
	WRONG_DOCUMENT_ERR          => 4,
	INVALID_CHARACTER_ERR       => 5,
	NO_DATA_ALLOWED_ERR         => 6,
	NO_MODIFICATION_ALLOWED_ERR => 7,
	NOT_FOUND_ERR               => 8,
	NOT_SUPPORTED_ERR           => 9,
	INUSE_ATTRIBUTE_ERR         => 10,
	INVALID_STATE_ERR           => 11,
	SYNTAX_ERR                  => 12,
	INVALID_MODIFICATION_ERR    => 13,
	NAMESPACE_ERR               => 14,
	INVALID_ACCESS_ERR          => 15,

# EventException:
	UNSPECIFIED_EVENT_TYPE_ERR => 0,
};

use Exporter 5.57 'import';

our $VERSION = '0.057';
our @EXPORT_OK = qw'
	INDEX_SIZE_ERR
	DOMSTRING_SIZE_ERR
	HIERARCHY_REQUEST_ERR
	WRONG_DOCUMENT_ERR
	INVALID_CHARACTER_ERR
	NO_DATA_ALLOWED_ERR
	NO_MODIFICATION_ALLOWED_ERR
	NOT_FOUND_ERR
	NOT_SUPPORTED_ERR
	INUSE_ATTRIBUTE_ERR
	INVALID_STATE_ERR
	SYNTAX_ERR
	INVALID_MODIFICATION_ERR
	NAMESPACE_ERR
	INVALID_ACCESS_ERR

	UNSPECIFIED_EVENT_TYPE_ERR
';
our %EXPORT_TAGS = (all => [@EXPORT_OK]);


use overload
	fallback => 1,
	'0+' => \&code,
	'""' => sub { $_[0][1] =~ /^(.*?)\n?\z/s; "$1\n" },
;

sub new {
	bless [@_[1,2]], $_[0];
}

sub code { $_[0][0] }

'true'
__END__