File Coverage

blib/lib/Net/Lighthouse/Project/Ticket/Version.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::Version;
use Any::Moose;
use Params::Validate ':all';
use Net::Lighthouse::Util;

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

has [
    qw/milestone_id assigned_user_id number user_id
      project_id creator_id attachments_count/
  ] => (
    isa => 'Maybe[Int]',
    is  => 'ro',
  );

has [qw/closed/] => (
    isa => 'Bool',
    is  => 'ro',
);

has [qw/diffable_attributes/] => (
    isa => 'HashRef',
    is  => 'ro',
);

has [
    'assigned_user_name', 'body',
    'body_html',          'permalink',
    'state',              'tag',
    'title',              'user_id',
    'user_name',          'creator_name',
    'url', 'milestone_title',
  ] => (
    isa => 'Maybe[Str]',
    is  => 'ro',
  );

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__