—

              
package WebService::ValidSign::Object::Document;
our $VERSION = '0.001';
use Moo;
extends 'WebService::ValidSign::Object';
# ABSTRACT: A ValidSign Document object
#
use Types::Standard qw(Str);
has '+type' => (required => 0);
has name => (
    is       => 'rw',
    isa      => Str,
    required => 1,
);
has path => (
    is       => 'ro',
    required => 1,
);
around TO_JSON => sub {
    my $orig = shift;
    my $self = shift;
    my $meta = $self->meta;
    my %result;
    for my $attr ($meta->get_all_attributes) {
        my $name  = $attr->name;
        next if $name eq 'path';
        my $value = $attr->get_value($self);
        my $type  = $attr->type_constraint;
        $result{$name} = $value if defined $value;
    }
    return \%result;
};
__PACKAGE__->meta->make_immutable;
__END__
HideShow 26 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
WebService::ValidSign::Object::Document - A ValidSign Document object
=head1 VERSION
version 0.001
=head1 AUTHOR
Wesley Schwengle <waterkip@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2019 by Wesley Schwengle.
This is free software, licensed under:
  The (three-clause) BSD License
=cut