File Coverage

blib/lib/XML/EPP/Msg.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


line stmt bran cond sub pod time code
1              
2             package XML::EPP::Msg;
3              
4 1     1   2659 use Moose;
  0            
  0            
5             use MooseX::Method::Signatures;
6             use Moose::Util::TypeConstraints;
7             use PRANG::Graph;
8             our $SCHEMA_PKG = "XML::EPP";
9              
10             has_element 'content' =>
11             is => "rw",
12             isa => "PRANG::XMLSchema::normalizedString",
13             xml_nodeName => "",
14             required => 1,
15             ;
16              
17             has_attr 'lang' =>
18             is => "rw",
19             isa => "PRANG::XMLSchema::language",
20             default => "en", # imperialists!!
21             ;
22              
23             with 'XML::EPP::Node';
24              
25             subtype "${SCHEMA_PKG}::msgType"
26             => as __PACKAGE__;
27              
28             coerce "${SCHEMA_PKG}::msgType"
29             => from "Str"
30             => via {
31             m{\A\s*(\S.*\S)\s*\Z};
32             __PACKAGE__->new(content => $1||"(none)");
33             };
34              
35             1;