File Coverage

blib/lib/Acme/Test/VW.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             package Acme::Test::VW;
2              
3 1     1   540 use strict;
  1         1  
  1         25  
4 1     1   29 use 5.008_005;
  1         4  
5             our $VERSION = '0.01';
6              
7 1     1   1101 use Test::Builder;
  1         11889  
  1         135  
8              
9             our $CI = grep $ENV{$_}, qw(
10             CI
11             CONTINUOUS_INTEGRATION
12             JENKINS_URL
13             HUDSON_URL
14             TRAVIS
15             CIRCLECI
16             TF_BUILD
17             TEAMCITY_VERSION
18             BUILDKITE
19              
20             AUTOMATED_TESTING
21             NONINTERACTIVE_TESTING
22             RELEASE_TESTING
23             AUTHOR_TESTING
24             PERL_MM_USE_DEFAULT
25             PERL5_CPAN_IS_RUNNING
26             PERL_CPAN_REPORTER_DIR
27             PERL_CPAN_REPORTER_CONFIG
28             );
29              
30             if ($CI) {
31             my $ok_orig = $Test::Builder::Test->can("ok");
32             *Test::Builder::ok = sub {
33 2     2   509 my($self, $test, $name) = @_;
34 2         8 $self->$ok_orig(1, $name);
35             };
36             }
37              
38             1;
39             __END__