File Coverage

blib/lib/Test/Sys/Info.pm
Criterion Covered Total %
statement 20 22 90.9
branch 1 2 50.0
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 29 33 87.8


line stmt bran cond sub pod time code
1             package Test::Sys::Info;
2             $Test::Sys::Info::VERSION = '0.22';
3 1     1   499 use strict;
  1         7  
  1         27  
4 1     1   4 use warnings;
  1         2  
  1         39  
5 1     1   6 use Carp qw( croak );
  1         1  
  1         85  
6 1     1   6 use base qw( Exporter );
  1         2  
  1         127  
7 1     1   604 use Test::More;
  1         63701  
  1         8  
8 1     1   252 use Test::Builder;
  1         2  
  1         38  
9              
10             BEGIN {
11 1     1   6 my $test = Test::Builder->new;
12 1 50       8 $test->no_plan if ! $test->has_plan;
13             }
14              
15             our @EXPORT = qw( driver_ok );
16              
17             sub driver_ok {
18 0     0 1   require_ok('Test::Sys::Info::Driver');
19 0           return Test::Sys::Info::Driver->new( shift )->run;
20             }
21              
22             ok(1, 'EU::MM What a dumb module you are')
23             if ! $ENV{HARNESS_ACTIVE};
24              
25             1;
26              
27             __END__