File Coverage

blib/lib/App/Memcached/Tool/Constants.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 0 4 0.0
total 27 31 87.1


line stmt bran cond sub pod time code
1             package App::Memcached::Tool::Constants;
2              
3 3     3   17526 use strict;
  3         4  
  3         80  
4 3     3   10 use warnings;
  3         4  
  3         71  
5 3     3   51 use 5.008_001;
  3         8  
6              
7 3     3   12 use Exporter 'import';
  3         3  
  3         200  
8              
9             our @EXPORT_OK = qw(
10             DEFAULT_PORT
11             DEFAULT_ADDR
12             MODES
13             DEFAULT_MODE
14             );
15             our %EXPORT_TAGS = (all => \@EXPORT_OK);
16              
17 3     3   400 use version; our $VERSION = 'v0.9.4';
  3         1651  
  3         10  
18              
19             my $DEFAULT_PORT = 11211;
20              
21 8     8 0 2406 sub DEFAULT_PORT { $DEFAULT_PORT }
22 13     13 0 435 sub DEFAULT_ADDR { '127.0.0.1:' . $DEFAULT_PORT }
23              
24             my @MODES = qw(display dump stats settings sizes help man);
25 43     43 0 329 sub MODES { @MODES }
26 1     1 0 7 sub DEFAULT_MODE { $MODES[0] }
27              
28             1;
29             __END__