File Coverage

blib/lib/Acme/Test/42.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package Acme::Test::42;
2              
3 2     2   24904 use strict;
  2         4  
  2         88  
4              
5             our $VERSION = 0.1;
6              
7 2     2   979 use Test::Builder::Module;
  2         12749  
  2         14  
8             our @ISA = qw(Test::Builder::Module);
9             our @EXPORT = qw(ok not_ok);
10              
11             my $CLASS = __PACKAGE__;
12              
13             sub ok($;$) {
14 4     4 0 1705 return $CLASS->builder->ok($_[0] eq 42, $_[1]);
15             }
16              
17             sub not_ok($;$) {
18 2     2 0 870 return $CLASS->builder->ok($_[0] ne 42, $_[1]);
19             }
20              
21             42;
22              
23             __END__