File Coverage

blib/lib/Box/Calc/Role/Mailable.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	16	81.2

package Box::Calc::Role::Mailable;
$Box::Calc::Role::Mailable::VERSION = '1.0201';
use strict;
use warnings;
use Moose::Role;

=head1 NAME

Box::Calc::Role::Mailable - Role to make an object mailable.

=head1 VERSION

version 1.0201

=head1 METHODS

This role installs these methods:

=head2 mail_container

Defaults to C<undef>.

=head2 mail_size

Defaults to 'Regular'.

=head2 mail_machinable

Returns C<undef>.

=head2 mail_type

Returns 'Package'.

=head2 girth

Returns y * z

=cut

has mail_container => (
    is          => 'rw',
    default     => undef,
);

has mail_size => (
    is          => 'rw',
    default     => 'Regular',
);

has mail_machinable => (
    is          => 'rw',
    default     => undef,
);

has mail_type => (
    is          => 'rw',
    default     => 'Package',
);

sub girth {
    my $self = shift;
    return $self->y * $self->z;
}

has mail_pobox_flag => (
    is          => 'rw',
    default     => 'N',
);

has mail_gift_flag => (
    is          => 'rw',
    isa         => 'Str',
    default     => 'N',
);

has value_of_contents => (
    is          => 'rw',
    isa         => 'Num',
    default     => 0,
);

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


1;