File Coverage

lib/Dist/Zilla/Util/RoleDB/Items.pm
Criterion Covered Total %
statement 12 20 60.0
branch 0 2 0.0
condition n/a
subroutine 4 6 66.6
pod 1 1 100.0
total 17 29 58.6


line stmt bran cond sub pod time code
1 1     1   772 use 5.008; # utf8
  1         2  
  1         32  
2 1     1   4 use strict;
  1         2  
  1         31  
3 1     1   3 use warnings;
  1         2  
  1         25  
4 1     1   514 use utf8;
  1         8  
  1         6  
5              
6             package Dist::Zilla::Util::RoleDB::Items;
7              
8             our $VERSION = '0.003001';
9              
10             # ABSTRACT: An aggregate provisioned index of roles
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14             my @items;
15              
16              
17              
18              
19              
20              
21              
22              
23              
24             sub all {
25 0 0   0 1   return @items if @items;
26 0           _add_items();
27 0           return @items;
28             }
29              
30             sub _add_items {
31 0     0     require Dist::Zilla::Util::RoleDB::Items::Core;
32 0           push @items, Dist::Zilla::Util::RoleDB::Items::Core->all;
33 0           require Dist::Zilla::Util::RoleDB::Items::ThirdParty;
34 0           push @items, Dist::Zilla::Util::RoleDB::Items::ThirdParty->all;
35 0           return;
36             }
37             1;
38              
39             __END__
40              
41             =pod
42              
43             =encoding UTF-8
44              
45             =head1 NAME
46              
47             Dist::Zilla::Util::RoleDB::Items - An aggregate provisioned index of roles
48              
49             =head1 VERSION
50              
51             version 0.003001
52              
53             =head1 METHODS
54              
55             =head2 C<all>
56              
57             Returns all items in this item set, as a list
58              
59             my @entries = $class->all();.
60              
61             =head1 AUTHOR
62              
63             Kent Fredric <kentnl@cpan.org>
64              
65             =head1 COPYRIGHT AND LICENSE
66              
67             This software is copyright (c) 2015 by Kent Fredric <kentfredric@gmail.com>.
68              
69             This is free software; you can redistribute it and/or modify it under
70             the same terms as the Perl 5 programming language system itself.
71              
72             =cut