File Coverage

blib/lib/Test/Behaviour/Spec.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 2 4 50.0
subroutine 6 6 100.0
pod 3 3 100.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package Test::Behaviour::Spec;
2 1     1   21819 use strict;
  1         2  
  1         34  
3 1     1   5 use warnings;
  1         2  
  1         25  
4 1     1   5 use Exporter;
  1         6  
  1         169  
5              
6             our $VERSION = '0.02';
7              
8             our @EXPORT = qw(describe it spec);
9             our @ISA = qw(Exporter);
10              
11             my $subject = '';
12             my $statement = '';
13              
14             sub describe {
15 4   50 4 1 2213 $subject = shift || '';
16 4         8 $statement = '';
17             }
18              
19 5   50 5 1 21 sub it { $statement = shift || '' }
20 9     9 1 1724 sub spec { join(" ", $subject, $statement) }
21              
22             1;
23              
24             __END__