File Coverage

blib/lib/TAP/Spec/Header.pm
Criterion Covered Total %
statement 13 26 50.0
branch 0 8 0.0
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 19 41 46.3


line stmt bran cond sub pod time code
1             package TAP::Spec::Header;
2             BEGIN {
3 2     2   90 $TAP::Spec::Header::AUTHORITY = 'cpan:ARODLAND';
4             }
5             {
6             $TAP::Spec::Header::VERSION = '0.10';
7             }
8             # ABSTRACT: Information at the beginning of a TAP stream
9 2     2   14 use Mouse;
  2         6  
  2         18  
10 2     2   1012 use namespace::autoclean;
  2         5  
  2         32  
11              
12 2     2   129 use TAP::Spec::Comment ();
  2         6  
  2         31  
13 2     2   8560 use TAP::Spec::Version ();
  2         267  
  2         1427  
14              
15              
16             has 'comments' => (
17             is => 'rw',
18             isa => 'ArrayRef',
19             predicate => 'has_comments',
20             );
21              
22              
23             has 'version' => (
24             is => 'rw',
25             isa => 'TAP::Spec::Version',
26             predicate => 'has_version',
27             );
28              
29              
30             has 'leading_junk' => (
31             is => 'rw',
32             isa => 'ArrayRef',
33             predicate => 'has_leading_junk',
34             );
35              
36              
37             has 'trailing_junk' => (
38             is => 'rw',
39             isa => 'ArrayRef',
40             predicate => 'has_trailing_junk',
41             );
42              
43              
44             sub as_tap {
45 0     0 1   my ($self) = @_;
46              
47 0           my $tap = "";
48              
49 0 0         if ($self->has_leading_junk) {
50 0           $tap .= $_->as_tap for @{ $self->leading_junk };
  0            
51             }
52              
53 0 0         if ($self->has_comments) {
54 0           $tap .= $_->as_tap for @{ $self->comments };
  0            
55             }
56 0 0         $tap .= $self->version->as_tap if $self->has_version;
57              
58 0 0         if ($self->has_trailing_junk) {
59 0           $tap .= $_->as_tap for @{ $self->trailing_junk };
  0            
60             }
61              
62 0           return $tap;
63             }
64              
65             __PACKAGE__->meta->make_immutable;
66              
67             __END__