File Coverage

inc/ok.pm
Criterion Covered Total %
statement 8 10 80.0
branch 1 4 25.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 17 70.5


line stmt bran cond sub pod time code
1             #line 1
2             package ok;
3             $ok::VERSION = 0.02;
4 2     2   1944  
  2         4  
  2         80  
5 2     2   11 use strict;
  2         3  
  2         241  
6             use Test::More ();
7              
8 2 50   2   14 sub import {
  2         13  
9             shift; goto &Test::More::use_ok if @_;
10              
11 0           # No argument list - croak as if we are prototyped like use_ok()
12 0 0         my (undef, $file, $line) = caller();
13             ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n";
14             }
15              
16              
17             __END__