File Coverage

blib/lib/Net/Lighthouse/Project/Ticket/Attachment.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	23	100.0

package Net::Lighthouse::Project::Ticket::Attachment;
use Any::Moose;
use Params::Validate ':all';
use Net::Lighthouse::Util;

# read only attr
has [ 'created_at' ] => (
    isa => 'DateTime',
    is  => 'ro',
);

has [ 'width', 'height', 'size', 'uploader_id', 'id', ] => (
    isa => 'Maybe[Int]',
    is  => 'ro',
);

has [ 'content_type', 'filename', 'url', 'code' ] => (
    isa => 'Str',
    is  => 'ro',
);

# make tests happy, added Test::MockObject
if ( $INC{'Moose.pm'} ) {
    require Moose::Util::TypeConstraints;
    Moose::Util::TypeConstraints::class_type( 'LWP::UserAgent' );
    Moose::Util::TypeConstraints::class_type( 'Test::MockObject' );
}
else {
    require Mouse::Util::TypeConstraints;
    Mouse::Util::TypeConstraints::class_type( 'LWP::UserAgent' );
    Mouse::Util::TypeConstraints::class_type( 'Test::MockObject' );
}

has 'ua' => ( is => 'ro', isa => 'LWP::UserAgent|Test::MockObject', );

has 'content' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        my $ua   = $self->ua;
        my $res  = $ua->get( $self->url );
        if ( $res->is_success ) {
            return $res->content;
        }
        else {
            return;
        }
    }
);

no Any::Moose;
__PACKAGE__->meta->make_immutable;

sub load_from_xml {
    my $self = shift;
    my $ref = Net::Lighthouse::Util->translate_from_xml(shift);

    # dirty hack: some attrs are read-only, and Mouse doesn't support
    # writer => '...'
    for my $k ( keys %$ref ) {
        $self->{$k} = $ref->{$k};
    }
    return $self;
}

1;

__END__