File Coverage

blib/lib/Test/Stream/Plugin/CanFork.pm
Criterion Covered Total %
statement 16 22 72.7
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 30 73.3


line stmt bran cond sub pod time code
1             package Test::Stream::Plugin::CanFork;
2 2     2   12 use strict;
  2         4  
  2         50  
3 2     2   10 use warnings;
  2         4  
  2         54  
4              
5 2     2   10 use Test::Stream::Capabilities qw/CAN_FORK CAN_REALLY_FORK/;
  2         4  
  2         16  
6              
7 2     2   10 use Test::Stream::Plugin;
  2         6  
  2         12  
8              
9             sub load_ts_plugin {
10 2     2 0 4 my $class = shift;
11 2         6 my ($caller, %params) = @_;
12              
13 2 50       6 if ($params{real}) {
14 0         0 return if CAN_REALLY_FORK;
15             }
16             else {
17 2         10 return if CAN_FORK;
18             }
19              
20 0           require Test::Stream::Context;
21 0           my $ctx = Test::Stream::Context::context();
22 0           $ctx->plan(0, "SKIP", "This test requires a perl capable of forking.");
23 0           $ctx->release;
24 0           exit 0;
25             }
26              
27             1;
28              
29             __END__