File Coverage

blib/lib/Test/Pcuke/Gherkin/Executor/Status.pm
Criterion Covered Total %
statement 10 10 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 2 50.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Test::Pcuke::Gherkin::Executor::Status;
2              
3 5     5   110720 use warnings;
  5         10  
  5         541  
4 5     5   106 use strict;
  5         9  
  5         544  
5              
6             =head1 NAME
7              
8             Test::Pcuke::Gherkin::Executor::Status - undefined status for default executor
9              
10             =head1 SYNOPSIS
11              
12             Does nothing useful
13              
14             =head1 METHODS
15              
16             =head2 new
17              
18             =cut
19              
20             sub new {
21 13     13 1 796 my ($self, $status) = @_;
22            
23 13 100       30 $status = 'undef' unless defined $status;
24            
25 13         64 return bless { _status => $status }, $self;
26             }
27              
28 12     12 0 85 sub status { $_[0]->{_status} }
29              
30              
31             1; # End of Test::Pcuke::Gherkin::Executor::Status
32             __END__