line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package POE::Component::SmokeBox::Backend::Test::SmokeBox::Mini; |
2
|
|
|
|
|
|
|
$POE::Component::SmokeBox::Backend::Test::SmokeBox::Mini::VERSION = '0.68'; |
3
|
|
|
|
|
|
|
#ABSTRACT: a backend to App::SmokeBox::Mini. |
4
|
|
|
|
|
|
|
|
5
|
2
|
|
|
2
|
|
3344976
|
use strict; |
|
2
|
|
|
|
|
6
|
|
|
2
|
|
|
|
|
61
|
|
6
|
2
|
|
|
2
|
|
12
|
use warnings; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
72
|
|
7
|
2
|
|
|
2
|
|
11
|
use base qw(POE::Component::SmokeBox::Backend::Base); |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
824
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
sub _data { |
10
|
14
|
|
|
14
|
|
88882
|
my $self = shift; |
11
|
|
|
|
|
|
|
$self->{_data} = |
12
|
|
|
|
|
|
|
{ |
13
|
14
|
|
|
|
|
142
|
check => [ '-e', 1 ], |
14
|
|
|
|
|
|
|
index => [ '-e', 1 ], |
15
|
|
|
|
|
|
|
smoke => [ '-e', '$|=1; if ( $ENV{PERL5LIB} ) { require App::SmokeBox::Mini::Plugin::Test; } else { my $module = shift; print $module, qq{\n}; } sleep 5; exit 0;' ], |
16
|
|
|
|
|
|
|
}; |
17
|
14
|
|
|
|
|
48
|
return; |
18
|
|
|
|
|
|
|
} |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
1; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
__END__ |