File Coverage

blib/lib/TAP/Spec/BailOut.pm
Criterion Covered Total %
statement 7 12 58.3
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 11 19 57.8


line stmt bran cond sub pod time code
1             package TAP::Spec::BailOut;
2             BEGIN {
3 2     2   89 $TAP::Spec::BailOut::AUTHORITY = 'cpan:ARODLAND';
4             }
5             {
6             $TAP::Spec::BailOut::VERSION = '0.10';
7             }
8             # ABSTRACT: A TAP Bail Out! line
9 2     2   13 use Mouse;
  2         5  
  2         14  
10 2     2   648 use namespace::autoclean;
  2         4  
  2         19  
11              
12              
13             has 'reason' => (
14             is => 'rw',
15             isa => 'Str',
16             predicate => 'has_reason',
17             );
18              
19              
20             sub as_tap {
21 0     0 1   my ($self) = @_;
22              
23 0           my $tap = "Bail out!";
24 0 0         $tap .= " " . $self->reason if $self->has_reason;
25 0           $tap .= "\n";
26              
27 0           return $tap;
28             }
29              
30             __PACKAGE__->meta->make_immutable;
31              
32             __END__