File Coverage

blib/lib/TAP/Spec/Comment.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 11 14 78.5


line stmt bran cond sub pod time code
1             package TAP::Spec::Comment;
2             BEGIN {
3 2     2   102 $TAP::Spec::Comment::AUTHORITY = 'cpan:ARODLAND';
4             }
5             {
6             $TAP::Spec::Comment::VERSION = '0.10';
7             }
8             # ABSTRACT: A comment in a TAP stream
9 2     2   14 use Mouse;
  2         3  
  2         20  
10 2     2   1237 use namespace::autoclean;
  2         4  
  2         17  
11              
12              
13             has 'text' => (
14             is => 'rw',
15             isa => 'Str',
16             required => 1,
17             );
18              
19              
20             sub as_tap {
21 0     0 1   my ($self) = @_;
22              
23 0           return "#" . $self->text . "\n";
24             }
25              
26             __PACKAGE__->meta->make_immutable;
27              
28             __END__