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   61 $TAP::Spec::Body::AUTHORITY = 'cpan:ARODLAND';
4             }
5             {
6             $TAP::Spec::Body::VERSION = '0.07_991'; # TRIAL
7             }
8             # ABSTRACT: The main body of a TAP testset
9 2     2   6 use Mouse;
  2         4  
  2         8  
10 2     2   386 use namespace::autoclean;
  2         8  
  2         10  
11              
12 2     2   776 use TAP::Spec::Comment ();
  2         121  
  2         39  
13 2     2   620 use TAP::Spec::JunkLine ();
  2         85  
  2         41  
14 2     2   662 use TAP::Spec::TestResult ();
  2         141  
  2         50  
15 2     2   823 use TAP::Spec::BailOut ();
  2         87  
  2         287  
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 32 my ($self) = @_;
27              
28 5 50       19 return () unless $self->has_lines;
29 5         7 return grep $_->isa('TAP::Spec::TestResult'), @{ $self->lines };
  5         43  
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__