File Coverage

blib/lib/CHI/Constants.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package CHI::Constants;
2             $CHI::Constants::VERSION = '0.61';
3 20     20   144 use strict;
  20         43  
  20         615  
4 20     20   106 use warnings;
  20         49  
  20         578  
5 20     20   113 use base qw(Exporter);
  20         40  
  20         2980  
6              
7             my @all_constants = do {
8 20     20   151 no strict 'refs';
  20         53  
  20         2310  
9             grep { exists &$_ } keys %{ __PACKAGE__ . '::' };
10             };
11             our @EXPORT_OK = (@all_constants);
12             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
13              
14 20     20   173 use constant CHI_Meta_Namespace => '_CHI_METACACHE';
  20         43  
  20         1913  
15 20     20   145 use constant CHI_Max_Time => 0xffffffff;
  20         40  
  20         1361  
16              
17             1;
18              
19             __END__