File Coverage

blib/lib/Pod/Weaver/PluginBundle/Author/KENTNL.pm
Criterion Covered Total %
statement 23 26 88.4
branch 1 2 50.0
condition n/a
subroutine 7 9 77.7
pod 0 4 0.0
total 31 41 75.6


line stmt bran cond sub pod time code
1 2     2   2717 use 5.006; # our
  2         5  
2 2     2   5 use strict;
  2         2  
  2         38  
3 2     2   6 use warnings;
  2         2  
  2         139  
4              
5             package Pod::Weaver::PluginBundle::Author::KENTNL;
6              
7             our $VERSION = '0.001003';
8              
9             # ABSTRACT: KENTNL's amazing Pod::Weaver Plugin Bundle.
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 2     2   421 use Moo qw( has with );
  2         9533  
  2         12  
14             with 'Pod::Weaver::PluginBundle::Author::KENTNL::Role::Easy';
15              
16              
17              
18              
19              
20 26     26 0 63 sub bundle_prefix { return '@A:KNL' }
21 0     0 0 0 sub mvp_aliases { return { command => qw[commands] } }
22 0     0 0 0 sub mvp_multivalue_args { return qw( commands ) }
23              
24              
25              
26              
27              
28             has 'commands' => (
29             is => ro =>,
30             predicate => 'has_commands',
31             lazy => 1,
32             default => sub { [] },
33             );
34              
35              
36              
37              
38              
39             sub instance_config {
40 1     1 0 2 my ($self) = @_;
41 1         3 $self->inhale_bundle('@Author::KENTNL::Core');
42 1         3 $self->inhale_bundle('@Author::KENTNL::Prelude');
43 1         2 my (@config);
44 1 50       4 if ( $self->has_commands ) {
45 0         0 push @config, { payload => { 'commands' => $self->commands } };
46             }
47 1         3 $self->inhale_bundle( '@Author::KENTNL::Collectors', @config );
48 1         3 $self->inhale_bundle('@Author::KENTNL::Postlude');
49 1         2 return;
50             }
51              
52 2     2   3062 no Moo;
  2         4  
  2         7  
53              
54             1;
55              
56             __END__
57              
58             =pod
59              
60             =encoding UTF-8
61              
62             =head1 NAME
63              
64             Pod::Weaver::PluginBundle::Author::KENTNL - KENTNL's amazing Pod::Weaver Plugin Bundle.
65              
66             =head1 VERSION
67              
68             version 0.001003
69              
70             =head1 QUICK REFERENCE
71              
72             [@Author::KENTNL]
73              
74             -~- Inherited from @Author::KENTNL::Collectors -~-
75             ; command[].default = [ required function attr method pfunction pattr pmethod ]
76             ; command[].entry_type[0] = KNOWNCOMMANDNAME
77             ; command[].entry_type[1] = COMMANDNAME = DESCRIPTION
78             ; KNOWNCOMMANDNAME.enums =
79             ; = required ; REQUIRED METHODS
80             ; = function ; FUNCTIONS
81             ; = method ; METHODS
82             ; = attr ; ATTRIBUTES
83             ; = cattr ; ATTRIBUTES / CONSTRUCTOR ARGUMENTS
84             ; = pfuncton ; PRIVATE FUNCTIONS
85             ; = pmethod ; PRIVATE METHODS
86             ; = pattr ; PRIVATE ATTRIBUTES
87              
88             =head1 SYNOPSIS
89              
90             [@Author::KENTNL]
91              
92             This is basically the same as
93              
94             [@Author::KENTNL::Core]
95              
96             [@Author::KENTNL::Prelude]
97              
98             [@Author::KENTNL::Collectors]
99              
100             [@Author::KENTNL::Postlude]
101              
102             =over 4
103              
104             =item * C<[@Author::KENTNL::Core]> : L<<
105             C<Pod::Weaver::PluginBundle::Author::KENTNL::Core>
106             |Pod::Weaver::PluginBundle::Author::KENTNL::Core
107             >>
108              
109             =item * C<[@Author::KENTNL::Prelude]> : L<<
110             C<Pod::Weaver::PluginBundle::Author::KENTNL::Prelude>
111             |Pod::Weaver::PluginBundle::Author::KENTNL::Prelude
112             >>
113              
114             =item * C<[@Author::KENTNL::Collectors]> : L<<
115             C<Pod::Weaver::PluginBundle::Author::KENTNL::Collectors>
116             |Pod::Weaver::PluginBundle::Author::KENTNL::Collectors
117             >>
118              
119             =item * C<[@Author::KENTNL::Postlude]> : L<<
120             C<Pod::Weaver::PluginBundle::Author::KENTNL::Postlude>
121             |Pod::Weaver::PluginBundle::Author::KENTNL::Postlude
122             >>
123              
124             =back
125              
126             =for Pod::Coverage bundle_prefix mvp_aliases mvp_multivalue_args
127              
128             =for Pod::Coverage has_commands
129              
130             =for Pod::Coverage instance_config
131              
132             =head1 AUTHOR
133              
134             Kent Fredric <kentnl@cpan.org>
135              
136             =head1 COPYRIGHT AND LICENSE
137              
138             This software is copyright (c) 2017 by Kent Fredric <kentfredric@gmail.com>.
139              
140             This is free software; you can redistribute it and/or modify it under
141             the same terms as the Perl 5 programming language system itself.
142              
143             =cut