File Coverage

example/lib/Module/Untested.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package Module::Untested;
2              
3 1     1   124451 use strict;
  1         19  
  1         35  
4 1     1   6 use warnings;
  1         2  
  1         34  
5 1     1   6 use Test::Tdd::Generator;
  1         2  
  1         125  
6              
7             $Example::VARIABLE = 'foo';
8              
9              
10             sub untested_subroutine {
11 9     9 0 182 my @params = @_;
12              
13 9         195 Test::Tdd::Generator::create_test('returns params plus foo', { globals => ['Example::'] });
14              
15 9         1126 return join(',', @params) . $Example::VARIABLE;
16             }
17              
18              
19             sub another_untested_subroutine {
20 4     4 0 1743 Test::Tdd::Generator::create_test('returns the first param');
21              
22 4         164 return $_[0];
23             }
24              
25             1;