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 1     1   626  
  1         1  
  1         54  
5 1     1   4 use strict;
  1         2  
  1         91  
6             use Test::More ();
7              
8 1 50   1   5 sub import {
  1         6  
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__