File Coverage

lib/Test/Classy/Util.pm
Criterion Covered Total %
statement 13 15 86.6
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Test::Classy::Util;
2            
3 8     8   47 use strict;
  8         17  
  8         340  
4 8     8   43 use warnings;
  8         15  
  8         216  
5 8     8   43 use Test::More ();
  8         17  
  8         2368  
6            
7             sub _current_test {
8 31 50   31   77 if ($Test::More::VERSION >= 2) {
9 0         0 return Test::More->builder->history->results_count;
10             }
11             else {
12 31         110 return Test::More->builder->{Curr_Test};
13             }
14             }
15            
16             sub _planned {
17 9 50   9   39 if ($Test::More::VERSION >= 2) {
18 0         0 return Test::More->builder->_plan_handled;
19             }
20             else {
21 9         86 return Test::More->builder->{Have_Plan};
22             }
23             }
24            
25             1;
26            
27             __END__