File Coverage

blib/lib/Test/Stream/Plugin/AuthorTest.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition 2 2 100.0
subroutine 5 5 100.0
pod 0 1 0.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package Test::Stream::Plugin::AuthorTest;
2 1     1   5 use strict;
  1         2  
  1         30  
3 1     1   4 use warnings;
  1         1  
  1         36  
4              
5 1     1   4 use Test::Stream::Context qw/context/;
  1         1  
  1         7  
6 1     1   4 use Test::Stream::Plugin qw/import/;
  1         2  
  1         5  
7              
8             sub load_ts_plugin {
9 4     4 0 4 my $class = shift;
10 4         6 my ($caller, $var) = @_;
11 4   100     10 $var ||= 'AUTHOR_TESTING';
12 4 100       14 return if $ENV{$var};
13              
14 2         5 my $ctx = context();
15 2         11 $ctx->plan(0, SKIP => "Author test, set the $var environment variable to run it");
16             }
17              
18             1;
19              
20             __END__