File Coverage

blib/lib/XML/EPP/Error.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package XML::EPP::Error;

# I've called this class 'error' - extErrValueType is a stupid name.

use Moose;
use MooseX::Method::Signatures;
use Moose::Util::TypeConstraints;
use PRANG::Graph;

our $SCHEMA_PKG = "XML::EPP";

use XML::EPP::Msg;
use PRANG::XMLSchema::Whatever;

# PRANG::XMLSchema::Whatever means that the object within will
# effectively be an unparsed XML fragment
subtype "${SCHEMA_PKG}::errValueType"
	=> as "PRANG::XMLSchema::Whatever";

with 'XML::EPP::Node';

coerce "${SCHEMA_PKG}::errValueType"
	=> from "Str",
	=> via {
		PRANG::XMLSchema::Whatever->new(
			contents => [$_],
			nodenames => [""],
		       );
	};

coerce "${SCHEMA_PKG}::errValueType"
	=> from "XML::LibXML::Element",
	=> via {
		my $node = $_;
		my $whatever = PRANG::XMLSchema::Whatever->new(
			contents => [],
			nodenames => [$node->localName],
			nodenames_ns => [$node->namespaceURI],
		       );
		$whatever->contents->[0] = $node;
		$whatever;
	};

has_element 'value' =>
	is => "rw",
	isa => "${SCHEMA_PKG}::errValueType",
	coerce => 1,
	required => 1,
	xmlns => &xmlns,
	;

has_element 'reason' =>
	is => "rw",
	isa => "${SCHEMA_PKG}::msgType",
	required => 1,
	coerce => 1,
	;

subtype "${SCHEMA_PKG}::extErrValueType"
	=> as __PACKAGE__;

1;