File Coverage

blib/lib/PONAPI/Client/Request/Role/HasData.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	3	3	100.0
pod			n/a
total	19	21	90.4

# ABSTRACT: request - role - has data
package PONAPI::Client::Request::Role::HasData;

use Moose::Role;

has _data => (
    init_arg  => 'data',
    is        => 'ro',
    isa       => 'HashRef',
    required  => 1,
);

has data => (
    init_arg => undef,
    is       => 'ro',
    isa      => 'HashRef',
    lazy     => 1,
    builder  => '_build_data',
);

sub _build_data {
    my $self = shift;
    my $data = $self->_data;

    $data->{type} = $self->type if !defined $data->{type};
    $data->{id}   = $self->id   if !defined $data->{id}
                        && $self->does('PONAPI::Client::Request::Role::HasId');

    return $data;
}

no Moose::Role; 1;

__END__

=pod

=encoding UTF-8

=head1 NAME

PONAPI::Client::Request::Role::HasData - request - role - has data

=head1 VERSION

version 0.002012

=head1 AUTHORS

=over 4

=item *

Mickey Nasriachi <[e-mail]>

=item *

Stevan Little <[e-mail]>

=item *

Brian Fraser <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Mickey Nasriachi, Stevan Little, Brian Fraser.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut