File Coverage

blib/lib/Dist/Zilla/dumpphases/Theme/basic/plain.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1 2     2   1046 use 5.006;
  2         6  
2 2     2   9 use strict;
  2         3  
  2         52  
3 2     2   8 use warnings;
  2         3  
  2         165  
4              
5             package Dist::Zilla::dumpphases::Theme::basic::plain;
6              
7             our $VERSION = '1.000009';
8              
9             # ABSTRACT: A plain-text theme for dzil dumpphases
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26 2     2   1202 use Moo qw( with );
  2         23283  
  2         13  
27              
28             with 'Dist::Zilla::dumpphases::Role::Theme';
29              
30              
31              
32              
33              
34              
35              
36              
37              
38              
39              
40              
41             sub print_section_header {
42 2     2 1 4 my ( undef, $label, $value ) = @_;
43 2         118 return printf "\n%s%s\n", $label, $value;
44             }
45              
46              
47              
48              
49              
50              
51              
52              
53              
54              
55              
56             sub print_section_prelude {
57 4     4 1 7 my ( undef, $label, $value ) = @_;
58 4         46 return printf "%s%s\n", ' - ' . $label, $value;
59             }
60              
61              
62              
63              
64              
65              
66              
67              
68              
69              
70              
71             sub print_star_assoc {
72 11     11 1 49 my ( undef, $name, $value ) = @_;
73 11         148 return printf "%s%s%s\n", ' * ', $name, ' => ' . $value;
74             }
75              
76             1;
77              
78             __END__
79              
80             =pod
81              
82             =encoding UTF-8
83              
84             =head1 NAME
85              
86             Dist::Zilla::dumpphases::Theme::basic::plain - A plain-text theme for dzil dumpphases
87              
88             =head1 VERSION
89              
90             version 1.000009
91              
92             =head1 SYNOPSIS
93              
94             dzil dumpphases --color-theme=basic::plain
95              
96             =begin MetaPOD::JSON v1.1.0
97              
98             {
99             "namespace":"Dist::Zilla::dumpphases::Theme:::basic::plain",
100             "does":"Dist::Zilla::dumpphases::Role::Theme",
101             "inherits":"Moo::Object",
102             "interface":"class"
103             }
104              
105              
106             =end MetaPOD::JSON
107              
108             =for html <center>
109             <img src="http://kentnl.github.io/screenshots/Dist-Zilla-App-Command-dumpphases/theme_basic_plain.png"
110             alt="Screenshot"
111             width="677"
112             height="412"/>
113             </center>
114              
115             =head1 METHODS
116              
117             =head2 C<print_section_header>
118              
119             See L<Dist::Zilla::dumpphases::Role::Theme/print_section_header>.
120              
121             This satisfies that, printing C<$label> and C<$value>,uncolored, as
122              
123             \n
124             $label$value\n
125              
126             =head2 C<print_section_prelude>
127              
128             See L<Dist::Zilla::dumpphases::Role::Theme/print_section_prelude>.
129              
130             This satisfies that, printing C<$label> and C<$value> uncolored, as:
131              
132             - $label$value\n
133              
134             =head2 C<print_star_assoc>
135              
136             See L<Dist::Zilla::dumpphases::Role::Theme/print_star_assoc>.
137              
138             This satisfies that, printing C<$label> and C<$value> uncolored, as:
139              
140             * $label => $value
141              
142             =head1 AUTHOR
143              
144             Kent Fredric <kentnl@cpan.org>
145              
146             =head1 COPYRIGHT AND LICENSE
147              
148             This software is copyright (c) 2017 by Kent Fredric <kentnl@cpan.org>.
149              
150             This is free software; you can redistribute it and/or modify it under
151             the same terms as the Perl 5 programming language system itself.
152              
153             =cut