File Coverage

blib/lib/TAP/Spec/Plan/Todo.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package TAP::Spec::Plan::Todo;
2             BEGIN {
3 2     2   66 $TAP::Spec::Plan::Todo::AUTHORITY = 'cpan:ARODLAND';
4             }
5             {
6             $TAP::Spec::Plan::Todo::VERSION = '0.07_991'; # TRIAL
7             }
8             # ABSTRACT: A legacy TAP plan indicating TODO tests
9 2     2   6 use Mouse;
  2         2  
  2         8  
10 2     2   396 use namespace::autoclean;
  2         3  
  2         8  
11             extends 'TAP::Spec::Plan::Simple';
12              
13              
14             has 'skipped_tests' => (
15             is => 'rw',
16             isa => 'ArrayRef',
17             required => 1,
18             );
19              
20              
21             around 'as_tap' => sub {
22             my ($self, $inner) = @_;
23              
24             my $tap = $inner->();
25             my $append = " todo";
26             $append .= " $_" for @{ $self->skipped_tests };
27             $tap =~ s/$/$append/;
28             return $tap;
29             };
30              
31             __PACKAGE__->meta->make_immutable;
32              
33             __END__