File Coverage

blib/lib/Couchbase/Client/Errors.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Couchbase::Client::Errors;
2 4     4   21 use strict;
  4         6  
  4         127  
3 4     4   19 use warnings;
  4         7  
  4         119  
4 4     4   21 use base qw(Exporter);
  4         57  
  4         520  
5             require Couchbase::Client::Errors_const;
6             our @EXPORT;
7              
8              
9             if(!caller) {
10 4     4   23 no strict 'refs';
  4         15  
  4         432  
11             foreach my $const (@EXPORT) {
12             my $val = &{$const}();
13             printf("NAME: %s, VALUE=%d\n",
14             $const, $val);
15             }
16             }
17              
18             1;
19              
20             __END__