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   1648 use strict;
  1         1  
  1         26  
4 1     1   3 use warnings;
  1         1  
  1         25  
5 1     1   21 use 5.008_001;
  1         2  
6              
7 1     1   447 use Pod::Usage;
  1         33199  
  1         115  
8              
9 1     1   8 use version; our $VERSION = 'v0.9.4';
  1         1  
  1         7  
10              
11 1     1   63 use App::Memcached::Tool::CLI;
  1         2  
  1         89  
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__