File Coverage

blib/lib/PONAPI/Builder/Role/HasMeta.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             # ABSTRACT: document builder - role - meta
2             package PONAPI::Builder::Role::HasMeta;
3              
4 35     35   23521 use Moose::Role;
  35         67  
  35         234  
5              
6             has _meta => (
7             init_arg => undef,
8             traits => [ 'Hash' ],
9             is => 'ro',
10             isa => 'HashRef',
11             default => sub { +{} },
12             handles => {
13             has_meta => 'count',
14             }
15             );
16              
17             sub add_meta {
18 45     45 0 3216 my ($self, %args) = @_;
19 45         198 @{ $self->_meta }{ keys %args } = values %args;
  45         2218  
20 45         265 return $self;
21             }
22              
23 35     35   181625 no Moose::Role; 1;
  35         174  
  35         171  
24              
25             __END__
26              
27             =pod
28              
29             =encoding UTF-8
30              
31             =head1 NAME
32              
33             PONAPI::Builder::Role::HasMeta - document builder - role - meta
34              
35             =head1 VERSION
36              
37             version 0.002006
38              
39             =head1 AUTHORS
40              
41             =over 4
42              
43             =item *
44              
45             Mickey Nasriachi <mickey@cpan.org>
46              
47             =item *
48              
49             Stevan Little <stevan@cpan.org>
50              
51             =item *
52              
53             Brian Fraser <hugmeir@cpan.org>
54              
55             =back
56              
57             =head1 COPYRIGHT AND LICENSE
58              
59             This software is copyright (c) 2016 by Mickey Nasriachi, Stevan Little, Brian Fraser.
60              
61             This is free software; you can redistribute it and/or modify it under
62             the same terms as the Perl 5 programming language system itself.
63              
64             =cut