File Coverage

blib/lib/Babble/Config.pm
Criterion Covered Total %
statement 6 6 100.0
branch 4 8 50.0
condition n/a
subroutine 2 2 100.0
pod n/a
total 12 16 75.0


line stmt bran cond sub pod time code
1             package Babble::Config;
2             # ABSTRACT: Settings for Babble
3              
4 12     12   80 use strictures 2;
  12         87  
  12         427  
5              
6             use constant {
7             CACHE_RE => exists $ENV{PERL_BABBLE_CACHE_RE}
8             ? $ENV{PERL_BABBLE_CACHE_RE}
9             : 1,
10              
11             DEBUG_CACHE_MISS => exists $ENV{PERL_BABBLE_DEBUG_CACHE_MISS}
12             ? $ENV{PERL_BABBLE_DEBUG_CACHE_MISS}
13             : 0,
14              
15             BAIL_OUT_EARLY => exists $ENV{PERL_BABBLE_BAIL_OUT_EARLY}
16             ? $ENV{PERL_BABBLE_BAIL_OUT_EARLY}
17             : 1,
18              
19             BAIL_OUT_LATE => exists $ENV{PERL_BABBLE_BAIL_OUT_LATE}
20             ? $ENV{PERL_BABBLE_BAIL_OUT_LATE}
21 12 50       1765 : 1,
    50          
    50          
    50          
22 12     12   2760 };
  12         45  
23              
24             1;