File Coverage

inc/My/Module/Build.pm
Criterion Covered Total %
statement 14 25 56.0
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod 0 2 0.0
total 19 36 52.7


line stmt bran cond sub pod time code
1             package My::Module::Build;
2              
3 1     1   23 use 5.006001;
  1         2  
4              
5 1     1   6 use strict;
  1         1  
  1         49  
6 1     1   7 use warnings;
  1         1  
  1         60  
7              
8 1     1   4 use Carp;
  1         1  
  1         107  
9              
10 1     1   663 use Module::Build;
  1         76219  
  1         149  
11             our @ISA = qw{ Module::Build };
12              
13             our $VERSION = '0.115';
14              
15             sub ACTION_authortest {
16 0     0 0   my ( $self, @args ) = @_;
17              
18 0           local $ENV{AUTHOR_TESTING} = 1;
19              
20 0           $self->depends_on( 'build' );
21 0           $self->test_files( qw{ t xt/author } );
22 0           $self->SUPER::ACTION_test( @args );
23              
24 0           return;
25              
26             }
27              
28             sub ACTION_genclean {
29 0     0 0   my ( $self ) = @_;
30              
31 0           $self->depends_on( 'realclean' );
32              
33 0           foreach my $fn ( qw{ META.json META.yml } ) {
34 0 0         -f $fn
35             and unlink $fn;
36             }
37              
38 0           return;
39             }
40              
41             1;
42              
43             __END__
44              
45             =head1 NAME
46              
47             My::Module::Build - Customize L<Module::Build|Module::Build>.
48              
49             =head1 SYNOPSIS
50              
51             use lib qw{ inc };
52             use My::Module::Build;
53             my $mb = My::Module::Build->new(
54             module_name => 'Foo::Bar',
55             dist_author => 'Yehudi Menuhin',
56             dist_abstract => 'Foo some bars',
57             license => 'perl',
58             );
59             $mb->create_build_script();
60              
61             =head1 DESCRIPTION
62              
63             This subclass of L<Module::Build|Module::Build> adds build targets as
64             convenient.
65              
66             =head1 ACTIONS
67              
68             =over
69              
70             =item authortest
71              
72             This action performs both the normal tests in F<t/> and the author tests
73             in F<xt/author/>.
74              
75             =item genclean
76              
77             This action is just like the C<realclean> action, but also removes files
78             generated by the packaging process. These are F<META.json> and F<META.yml>.
79              
80             =back
81              
82             =head1 SEE ALSO
83              
84             L<Module::Build|Module::Build>.
85              
86             =head1 SUPPORT
87              
88             Support is by the author. Please file bug reports at
89             L<https://rt.cpan.org/Public/Dist/Display.html?Name=Perl-Critic-Policy-Variables-ProhibitUnusedVarsStricter>,
90             L<https://github.com/trwyant/perl-Perl-Critic-Policy-Variables-ProhibitUnusedVarsStricter/issues>, or in
91             electronic mail to the author.
92              
93             =head1 AUTHOR
94              
95             Thomas R. Wyant, III F<wyant at cpan dot org>
96              
97             =head1 COPYRIGHT AND LICENSE
98              
99             Copyright (C) 2013-2022, 2024-2025 by Thomas R. Wyant, III
100              
101             This program is free software; you can redistribute it and/or modify it
102             under the same terms as Perl 5.10.0. For more details, see the full text
103             of the licenses in the directory LICENSES.
104              
105             This program is distributed in the hope that it will be useful, but
106             without any warranty; without even the implied warranty of
107             merchantability or fitness for a particular purpose.
108              
109             =cut
110              
111             ##############################################################################
112             # Local Variables:
113             # mode: cperl
114             # cperl-indent-level: 4
115             # fill-column: 78
116             # indent-tabs-mode: nil
117             # c-indentation-style: bsd
118             # End:
119             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :