File Coverage

blib/lib/WebService/ValidSign/Object/Document.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             our $VERSION = '0.004';
2             use Moo;
3 1     1   24165 extends 'WebService::ValidSign::Object';
  1         2  
  1         8  
4              
5             # ABSTRACT: A ValidSign Document object
6             #
7             use Types::Standard qw(Str);
8 1     1   355  
  1         2  
  1         9  
9             has '+type' => (required => 0);
10              
11             has name => (
12             is => 'rw',
13             isa => Str,
14             required => 1,
15             );
16              
17             has path => (is => 'ro');
18              
19             around TO_JSON => sub {
20             my $orig = shift;
21             my $self = shift;
22              
23             my $rv = $orig->($self, @_);
24             delete $rv->{path};
25             return $rv;
26             };
27              
28             __PACKAGE__->meta->make_immutable;
29              
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             WebService::ValidSign::Object::Document - A ValidSign Document object
38              
39             =head1 VERSION
40              
41             version 0.004
42              
43             =head1 AUTHOR
44              
45             Wesley Schwengle <waterkip@cpan.org>
46              
47             =head1 COPYRIGHT AND LICENSE
48              
49             This software is Copyright (c) 2019 by Wesley Schwengle.
50              
51             This is free software, licensed under:
52              
53             The (three-clause) BSD License
54              
55             =cut