blib/lib/XML/SRS/Password.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 2 | 4 | 50.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 2 | 2 | 100.0 |
pod | n/a | ||
total | 4 | 6 | 66.6 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | |||||||
2 | package XML::SRS::Password; | ||||||
3 | BEGIN { | ||||||
4 | 1 | 1 | 6580 | $XML::SRS::Password::VERSION = '0.09'; | |||
5 | } | ||||||
6 | |||||||
7 | 1 | 1 | 496 | use Moose; | |||
0 | |||||||
0 | |||||||
8 | use PRANG::Graph; | ||||||
9 | use Moose::Util::TypeConstraints; | ||||||
10 | |||||||
11 | |||||||
12 | has_attr 'crypted' => | ||||||
13 | is => "ro", | ||||||
14 | isa => "Str", | ||||||
15 | xml_name => "Password", | ||||||
16 | required => 1, | ||||||
17 | ; | ||||||
18 | |||||||
19 | with 'XML::SRS::Node'; | ||||||
20 | |||||||
21 | coerce __PACKAGE__ | ||||||
22 | => from "Str" | ||||||
23 | => via { | ||||||
24 | __PACKAGE__->new(crypted => $_); | ||||||
25 | }; | ||||||
26 | 1; |