File Coverage

blib/lib/Test/Given/Builder.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 25 28 89.2


line stmt bran cond sub pod time code
1             package Test::Given::Builder;
2 41     41   287 use strict;
  41         69  
  41         1229  
3 41     41   200 use warnings;
  41         70  
  41         1081  
4              
5 41     41   191 use parent 'Test::Builder::Module';
  41         63  
  41         179  
6              
7             my $CLASS = __PACKAGE__;
8              
9             our @EXPORT = qw(ok diag plan);
10              
11             # suppress message from ok
12             sub ok {
13 133     133 0 276 my ($passed, $name) = @_;
14 133         1055 my $tb = $CLASS->builder;
15 133         2122 my $no_diag = !!$tb->no_diag();
16 133         1079 $tb->no_diag(1);
17 133         1667 local $ENV{HARNESS_ACTIVE} = '';
18 133         845 $tb->ok($passed, $name);
19 133         66774 $tb->no_diag($no_diag);
20 133         1274 return $passed;
21             }
22              
23 66     66 0 229 sub diag { $CLASS->builder->diag(@_) }
24 41     41 0 558 sub plan { $CLASS->builder->plan(@_) }