File Coverage

script/memcached-roaster
Criterion Covered Total %
statement 23 27 85.1
branch 0 4 0.0
condition n/a
subroutine 8 9 88.8
pod n/a
total 31 40 77.5


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2              
3 1     1   1047 use strict;
  1         2  
  1         40  
4 1     1   4 use warnings;
  1         2  
  1         25  
5 1     1   24 use 5.010_001;
  1         3  
6              
7 1     1   6 use FindBin;
  1         2  
  1         53  
8 1     1   489 use Pod::Usage;
  1         36821  
  1         141  
9              
10 1     1   9 use version; our $VERSION = 'v0.2.1';
  1         1  
  1         6  
11              
12 1     1   624 use lib "$FindBin::Bin/../lib";
  1         443  
  1         5  
13              
14 1     1   113 use App::Memcached::Roaster;
  1         2  
  1         85  
15              
16             if (__FILE__ eq $0) {
17             main()
18             } else {
19             return 1;
20             }
21              
22             sub main {
23 0     0     my $params = App::Memcached::Roaster->parse_args(@ARGV);
24 0 0         pod2usage(-verbose => 1) if $params->{help};
25 0 0         pod2usage(-verbose => 2) if $params->{man};
26 0           App::Memcached::Roaster->new(%$params)->run;
27             }
28              
29             __END__