File Coverage

inc/Crypt/Diceware/Wordlist/NL/ModHex/Module/Build/Standard.pm
Criterion Covered Total %
statement 20 43 46.5
branch 1 6 16.6
condition n/a
subroutine 7 13 53.8
pod 1 6 16.6
total 29 68 42.6


line stmt bran cond sub pod time code
1             # -*- cperl; cperl-indent-level: 4 -*-
2             ## no critic (RequirePodSections)
3             package Crypt::Diceware::Wordlist::NL::ModHex::Module::Build::Standard v0.0.1;
4              
5 1     1   652 use 5.016000;
  1         5  
6              
7 1     1   7 use strict;
  1         2  
  1         47  
8 1     1   6 use warnings;
  1         2  
  1         49  
9              
10 1     1   6 use Carp;
  1         3  
  1         132  
11 1     1   8 use English qw($OS_ERROR -no_match_vars);
  1         2  
  1         6  
12 1     1   148 use parent 'Module::Build';
  1         3  
  1         7  
13              
14             ## no critic (Capitalization)
15             sub ACTION_authortest {
16             ## use critic
17 0     0 0 0 my ($self) = @_;
18 0         0 $self->authortest_dependencies();
19 0         0 $self->depends_on('test');
20 0         0 return;
21             }
22              
23             ## no critic (Capitalization)
24             sub ACTION_authortestcover {
25             ## use critic
26 0     0 0 0 my ($self) = @_;
27 0         0 $self->authortest_dependencies();
28 0         0 $self->depends_on('testcover');
29 0         0 return;
30             }
31              
32             ## no critic (Capitalization)
33             sub ACTION_distdir {
34             ## use critic
35 0     0 0 0 my ( $self, @arguments ) = @_;
36 0         0 $self->depends_on('authortest');
37 0         0 return $self->SUPER::ACTION_distdir(@arguments);
38             }
39              
40             ## no critic (Capitalization)
41             sub ACTION_manifest {
42             ## use critic
43 0     0 0 0 my ( $self, @arguments ) = @_;
44 0 0       0 if ( -e 'MANIFEST' ) {
45 0 0       0 unlink 'MANIFEST' or Carp::croak qq{Can't unlink MANIFEST: $OS_ERROR};
46             }
47 0         0 return $self->SUPER::ACTION_manifest(@arguments);
48             }
49              
50             sub tap_harness_args {
51 1     1 0 5521 my ($self) = @_;
52 1 50       11 if ( $ENV{'RUNNING_UNDER_TEAMCITY'} ) {
53 0         0 return $self->_tap_harness_args();
54             }
55 1         7 return;
56             }
57              
58             sub _tap_harness_args {
59 0     0     return { 'formatter_class' => 'TAP::Formatter::TeamCity', 'merge' => 1 };
60             }
61              
62             sub authortest_dependencies {
63 0     0 1   my ($self) = @_;
64 0           $self->depends_on('build');
65 0           $self->test_files(qw< t xt >);
66             ## no critic (RequireLocalizedPunctuationVars)
67 0           $ENV{'AUTHOR_TESTING'} = 1;
68             ## use critic
69 0           $self->recursive_test_files(1);
70 0           return;
71             }
72              
73             1;
74              
75             __END__