File Coverage

blib/lib/App/Midgen/Role/AttributesX.pm
Criterion Covered Total %
statement 18 22 81.8
branch n/a
condition n/a
subroutine 6 8 75.0
pod n/a
total 24 30 80.0


line stmt bran cond sub pod time code
1             package App::Midgen::Role::AttributesX;
2              
3 2     2   1166 use Types::Standard qw( InstanceOf );
  2         3  
  2         19  
4 2     2   799 use Moo::Role;
  2         3  
  2         12  
5 2     2   1385 use MetaCPAN::Client;
  2         317639  
  2         74  
6 2     2   1101 use Perl::PrereqScanner;
  2         769895  
  2         118  
7              
8             # Load time and dependencies negate execution time
9             # use namespace::clean -except => 'meta';
10              
11             our $VERSION = '0.33_05';
12             $VERSION = eval $VERSION; ## no critic
13              
14 2     2   15 use Carp;
  2         4  
  2         297  
15              
16             #######
17             # some encapsulated -> attributes
18             #######
19              
20             has 'mcpan' => (
21             is => 'ro',
22             isa => InstanceOf [ 'MetaCPAN::Client', ],
23             lazy => 1,
24             builder => '_build_mcpan',
25             handles => [qw( distribution module )],
26             );
27              
28             sub _build_mcpan {
29 0     0     my $self = shift;
30 0           return MetaCPAN::Client->new();
31             }
32              
33             has 'scanner' => (
34             is => 'ro',
35             isa => InstanceOf [ 'Perl::PrereqScanner', ],
36             lazy => 1,
37             builder => '_build_scanner',
38             handles => [qw( scan_ppi_document )],
39             );
40              
41             sub _build_scanner {
42 0     0     my $self = shift;
43 0           return Perl::PrereqScanner->new();
44             }
45              
46 2     2   9 no Moo::Role;
  2         3  
  2         19  
47              
48             1;
49              
50             __END__
51              
52             =pod
53              
54             =encoding UTF-8
55              
56             =head1 NAME
57              
58             App::Midgen::Role::AttributesX - Package Attributes used by L<App::Midgen>
59              
60             =head1 VERSION
61              
62             version: 0.33_05
63              
64             =head1 METHODS
65              
66             none as such, but we do have
67              
68             =head2 ACCESSORS
69              
70             =over 4
71              
72             =item * mcpan
73              
74             accessor to MetaCPAN::Clinet object
75              
76             =item * scanner
77              
78             accessor to Perl::PrereqScanner object
79              
80             =back
81              
82             =head1 SEE ALSO
83              
84             L<App::Midgen>,
85              
86             =head1 AUTHOR
87              
88             See L<App::Midgen>
89              
90             =head2 CONTRIBUTORS
91              
92             See L<App::Midgen>
93              
94             =head1 COPYRIGHT
95              
96             See L<App::Midgen>
97              
98             =head1 LICENSE
99              
100             This library is free software; you can redistribute it and/or modify
101             it under the same terms as Perl itself.
102              
103             =cut