File Coverage

blib/lib/POE/Component/SmokeBox/Backend/Test/Loop.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::Loop;
2             $POE::Component::SmokeBox::Backend::Test::Loop::VERSION = '0.56';
3             #ABSTRACT: a backend to test looping output kills.
4              
5 1     1   9 use strict;
  1         2  
  1         36  
6 1     1   6 use warnings;
  1         2  
  1         38  
7 1     1   6 use base qw(POE::Component::SmokeBox::Backend::Base);
  1         2  
  1         404  
8              
9             sub _data {
10 1     1   2 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}; }' ],
16             };
17 1         4 return;
18             }
19              
20             1;
21              
22             __END__