File Coverage

script/memcached-tool
Criterion Covered Total %
statement 17 23 73.9
branch 0 6 0.0
condition n/a
subroutine 6 7 85.7
pod n/a
total 23 36 63.8


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2              
3 1     1   2279 use strict;
  1         2  
  1         38  
4 1     1   5 use warnings;
  1         2  
  1         38  
5 1     1   22 use 5.008_001;
  1         3  
6              
7 1     1   678 use Pod::Usage;
  1         53117  
  1         151  
8              
9 1     1   10 use version; our $VERSION = 'v0.9.2';
  1         2  
  1         9  
10              
11 1     1   87 use App::Memcached::Tool::CLI;
  1         2  
  1         147  
12              
13             if (__FILE__ eq $0) {
14             main()
15             } else {
16             return 1;
17             }
18              
19             sub main {
20 0     0     my $Cli_Class = 'App::Memcached::Tool::CLI';
21 0           my $params = $Cli_Class->parse_args;
22 0 0         exit 1 unless $params->{mode};
23 0 0         pod2usage(-verbose => 1) if $params->{mode} eq 'help';
24 0 0         pod2usage(-verbose => 2) if $params->{mode} eq 'man';
25 0           $Cli_Class->new(%$params)->run
26             }
27              
28             __END__