File Coverage

blib/lib/WebService/ValidSign/Object/DocumentPackage.pm

Criterion	Covered	Total	%
statement	23	36	63.8
branch	3	10	30.0
condition			n/a
subroutine	7	9	77.7
pod			n/a
total	33	55	60.0

## Please see file perltidy.ERR
our $VERSION = '0.004';
use Moo;

extends 'WebService::ValidSign::Object';

use Types::Standard qw(Str Bool ArrayRef HashRef);
use WebService::ValidSign::Object::Ceremony;

# TODO:
# Add coerce sender
# Add coerce settings
# Add coerce roles
#
use WebService::ValidSign::Types qw();

# ABSTRACT: A ValidSign DocumentPackage object

has '+type' => (default => "PACKAGE");

has name => (
    is       => 'ro',
    required => 1,
);

has language => (
    is      => 'rw',
    isa     => Str,
    default => 'en',
);

has email_message => (
    is  => 'rw',
    isa => Str,
);

has auto_complete => (
    is      => 'rw',
    isa     => Bool,
    default => 1,
);

has description => (
    is  => 'rw',
    isa => Str,
);

has sender => (
    is        => 'rw',
    predicate => 'has_sender',
    # coerce => 1
);

has settings => (
    is      => 'rw',
    builder => 1
);

has visibility => (
    is      => 'rw',
    isa     => Str,
    default => 'ACCOUNT',
);

has roles => (
    is        => 'rw',
    default   => sub { [] },
    isa       => ArrayRef,
    traits    => ["Array"],
    predicate => 'has_roles',

    #handles   => {
    #    add_signer    => 'push',
    #    count_signer  => 'elements',
    #    delete_signer => 'delete',
    #},
);

has documents => (
    is        => 'rw',
    lazy      => 1,
    isa       => ArrayRef,
    predicate => 'has_documents',
    default   => sub { [] },
);

    my $self = shift;
    return { ceremony => WebService::ValidSign::Object::Ceremony->new() };
}

    my ($self, $document) = @_;
    if ($self->count_documents) {
        croak("Current implementation only supports one document!");
    }

    push(@{$self->documents}, $document);
    return 1;
};

    my $self = shift;
    return 0 unless $self->has_documents;
    return scalar @{$self->documents};
}


    my $self   = shift;
    my $role_name = shift;
    my $signer = shift;
    if ($self->count_roles) {
        croak("Current implementation only supports one signer!");
    }

    if (!$signer->can("as_signer")) {
        croak("You need to implement as_signer");
    }

    #push(@{$self->signers}, $signer->as_signer);
    return 1;
};

    my $self = shift;
    return 0 unless $self->has_roles;
    return scalar @{$self->roles};
}

__PACKAGE__->meta->make_immutable;


=pod

=encoding UTF-8

=head1 NAME

WebService::ValidSign::Object::DocumentPackage - A ValidSign DocumentPackage object

=head1 VERSION

version 0.004

=head1 AUTHOR

Wesley Schwengle <[e-mail]>

=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