File Coverage

blib/lib/Test/Sys/Info.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod	1	1	100.0
total	33	37	89.1

package Test::Sys::Info;
use strict;
use warnings;
use vars qw( $VERSION @ISA @EXPORT );
use Carp qw( croak );
use base qw( Exporter );
use Test::More;
use Test::Builder;

BEGIN {
    my $test = Test::Builder->new;
    $test->no_plan if ! $test->has_plan;
}

$VERSION = '0.21';
@EXPORT  = qw( driver_ok );

sub driver_ok {
    require_ok('Test::Sys::Info::Driver');
    return Test::Sys::Info::Driver->new( shift )->run;
}

ok(1, 'EU::MM What a dumb module you are')
    if ! $ENV{HARNESS_ACTIVE};

1;

__END__