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.60';
3 20     20   89 use strict;
  20         28  
  20         643  
4 20     20   77 use warnings;
  20         27  
  20         583  
5 20     20   76 use base qw(Exporter);
  20         43  
  20         1718  
6              
7             my @all_constants = do {
8 20     20   98 no strict 'refs';
  20         92  
  20         1803  
9             grep { exists &$_ } keys %{ __PACKAGE__ . '::' };
10             };
11             our @EXPORT_OK = (@all_constants);
12             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
13              
14 20     20   108 use constant CHI_Meta_Namespace => '_CHI_METACACHE';
  20         33  
  20         1508  
15 20     20   96 use constant CHI_Max_Time => 0xffffffff;
  20         27  
  20         942  
16              
17             1;
18              
19             __END__