File Coverage

blib/lib/PONAPI/Builder/Resource/Identifier.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             # ABSTRACT: document builder - resource identifier
2             package PONAPI::Builder::Resource::Identifier;
3              
4 34     34   178385 use Moose;
  34         335007  
  34         225  
5              
6             with 'PONAPI::Builder',
7             'PONAPI::Builder::Role::HasMeta';
8              
9             has id => ( is => 'ro', isa => 'Str', required => 1 );
10             has type => ( is => 'ro', isa => 'Str', required => 1 );
11              
12             sub build {
13 519     519 0 854 my $self = $_[0];
14 519         898 my $result = {};
15              
16 519         22056 $result->{id} = $self->id;
17 519         22366 $result->{type} = $self->type;
18 519 100       26247 $result->{meta} = $self->_meta if $self->has_meta;
19              
20 519         2184 return $result;
21             }
22              
23             __PACKAGE__->meta->make_immutable;
24 34     34   221721 no Moose; 1;
  34         82  
  34         184  
25              
26             __END__
27              
28             =pod
29              
30             =encoding UTF-8
31              
32             =head1 NAME
33              
34             PONAPI::Builder::Resource::Identifier - document builder - resource identifier
35              
36             =head1 VERSION
37              
38             version 0.002005
39              
40             =head1 AUTHORS
41              
42             =over 4
43              
44             =item *
45              
46             Mickey Nasriachi <mickey@cpan.org>
47              
48             =item *
49              
50             Stevan Little <stevan@cpan.org>
51              
52             =item *
53              
54             Brian Fraser <hugmeir@cpan.org>
55              
56             =back
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             This software is copyright (c) 2016 by Mickey Nasriachi, Stevan Little, Brian Fraser.
61              
62             This is free software; you can redistribute it and/or modify it under
63             the same terms as the Perl 5 programming language system itself.
64              
65             =cut