File Coverage

blib/lib/TAP/Spec/Body.pm
Criterion Covered Total %
statement 23 30 76.6
branch 1 4 25.0
condition n/a
subroutine 8 9 88.8
pod 2 2 100.0
total 34 45 75.5


line stmt bran cond sub pod time code
1             package TAP::Spec::Body;
2             BEGIN {
3 2     2   85 $TAP::Spec::Body::AUTHORITY = 'cpan:ARODLAND';
4             }
5             {
6             $TAP::Spec::Body::VERSION = '0.10';
7             }
8             # ABSTRACT: The main body of a TAP testset
9 2     2   12 use Mouse;
  2         5  
  2         22  
10 2     2   776 use namespace::autoclean;
  2         13  
  2         17  
11              
12 2     2   16502 use TAP::Spec::Comment ();
  2         183  
  2         81  
13 2     2   9629 use TAP::Spec::JunkLine ();
  2         157  
  2         51  
14 2     2   12262 use TAP::Spec::TestResult ();
  2         185  
  2         58  
15 2     2   4215 use TAP::Spec::BailOut ();
  2         179  
  2         469  
16              
17              
18             has 'lines' => (
19             is => 'rw',
20             isa => 'ArrayRef',
21             predicate => 'has_lines',
22             );
23              
24              
25             sub tests {
26 5     5 1 49 my ($self) = @_;
27              
28 5 50       36 return () unless $self->has_lines;
29 5         12 return grep $_->isa('TAP::Spec::TestResult'), @{ $self->lines };
  5         66  
30             }
31              
32              
33             sub as_tap {
34 0     0 1   my ($self) = @_;
35              
36 0           my $tap = "";
37 0 0         return "" unless $self->has_lines;
38              
39 0           for my $line (@{ $self->lines }) {
  0            
40 0           $tap .= $line->as_tap;
41             }
42              
43 0           return $tap;
44             }
45              
46             __PACKAGE__->meta->make_immutable;
47              
48             __END__