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