File Coverage

blib/lib/POE/Component/SmokeBox/Backend/Test/Excess.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package POE::Component::SmokeBox::Backend::Test::Excess;
2             $POE::Component::SmokeBox::Backend::Test::Excess::VERSION = '0.58';
3             #ABSTRACT: a backend to test excessive run kills.
4              
5 1     1   8 use strict;
  1         3  
  1         37  
6 1     1   6 use warnings;
  1         2  
  1         41  
7 1     1   5 use base qw(POE::Component::SmokeBox::Backend::Base);
  1         2  
  1         435  
8              
9             sub _data {
10 1     1   3 my $self = shift;
11             $self->{_data} =
12             {
13 1         8 check => [ '-e', 1 ],
14             index => [ '-e', 1 ],
15             smoke => [ '-e', '$|=1; my $module = shift; while (1) { print $module, qq{\n}; sleep 3; }' ],
16             };
17 1         3 return;
18             }
19              
20             1;
21              
22             __END__