File Coverage

blib/lib/Test/U32.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Test::U32;
2              
3 1     1   9274 use strict;
  1         4  
  1         104  
4 1     1   6 use warnings;
  1         2  
  1         164  
5              
6             require Exporter;
7              
8 1     1   5 use vars qw( @ISA $VERSION @EXPORT @EXPORT_OK );
  1         1  
  1         601  
9             @ISA = qw(Exporter);
10             $VERSION = '0.01';
11             @EXPORT = qw(check_u32 check_have_u32);
12             @EXPORT_OK = @EXPORT;
13              
14             require XSLoader;
15             XSLoader::load('Test::U32', $VERSION);
16              
17             sub check_have_u32 {
18 1     1 1 24 print "1..1\n";
19 1 50         print check_u32() ? "ok 1\n" : "not ok\n";
20             }
21              
22             1;
23             __END__