File Coverage

blib/lib/Net/Easypost/Label.pm

Criterion	Covered	Total	%
statement	24	29	82.7
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	3	3	100.0
total	37	45	82.2

package Net::Easypost::Label;
$Net::Easypost::Label::VERSION = '0.20';
use Moo;
with qw(Net::Easypost::Resource);

use Carp qw(croak);
use Net::Easypost::Request;

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

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

has 'filetype' => (
    is      => 'ro',
    lazy    => 1,
    default => 'image/png',
);

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

has 'rate' => (
   is  => 'ro',
);

has 'image' => (
    is        => 'ro',
    lazy      => 1,
    predicate => 1,
    default   => sub {
        my ($self) = @_;

        croak "Cannot retrieve image for " . $self->filename . " without URL"
            unless $self->has_url;

        return $self->requester->get($self->url);
    }
);

sub _build_operation { '' }
sub _build_role { 'label' }
sub _build_fieldnames {
    return [qw/tracking_code url filetype filename/];
}

sub save {
    my ($self) = @_;

    $self->image
        unless $self->has_image;

    open my $fh, ">:raw", $self->filename
        or croak "Couldn't save " . $self->filename . ": $!";

    print {$fh} $self->image;
    close($fh);

    return 1;
}

sub clone {
   my $self = shift;

   return Net::Easypost::Label->new(
      map { $_ => $self->$_ }
         grep { defined $self->$_ }
            'id', @{ $self->fieldnames }
   );
}

sub serialize {
   my ($self) = @_;

   return {
      map  { $self->role . "[$_]" => $self->$_ }
      grep { defined $self->$_ }
         @{ $self->fieldnames }
   };
}

1;

__END__