File Coverage

blib/lib/Test/Stream/Bundle.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Test::Stream::Bundle;
2 97     97   1078 use strict;
  97         172  
  97         2376  
3 97     97   460 use warnings;
  97         165  
  97         2625  
4              
5 97     97   499 use Carp qw/croak/;
  97         166  
  97         4578  
6              
7 97     97   584 use Test::Stream::Exporter;
  97         171  
  97         688  
8              
9             default_export import => sub {
10 1     1   7 my $class = shift;
11 1         4 my @caller = caller;
12              
13 1         3 my $bundle = $class;
14 1         5 $bundle =~ s/^Test::Stream::Bundle::/-/;
15              
16 1         6 require Test::Stream;
17 1         6 Test::Stream->load(\@caller, $bundle, @_);
18             };
19              
20 97     97   574 no Test::Stream::Exporter;
  97         196  
  97         475  
21              
22             1;
23              
24             __END__