File Coverage

blib/lib/SRU/Utils.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package SRU::Utils;
2             {
3             $SRU::Utils::VERSION = '1.01';
4             }
5             #ABSTRACT: Utility functions for SRU
6              
7 2     2   15 use strict;
  2         4  
  2         79  
8 2     2   12 use warnings;
  2         3  
  2         80  
9 2     2   11 use base qw( Exporter );
  2         22  
  2         318  
10              
11             our @EXPORT_OK = qw( error );
12              
13              
14             sub error {
15 0 0   0 1   if ( $_[0] ) { $SRU::Error = $_[0]; };
  0            
16 0           return;
17             }
18              
19             1;
20              
21             __END__