File Coverage

script/memcached-roaster
Criterion Covered Total %
statement 17 21 80.9
branch 0 4 0.0
condition n/a
subroutine 6 7 85.7
pod n/a
total 23 32 71.8


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2              
3 1     1   917 use strict;
  1         1  
  1         24  
4 1     1   3 use warnings;
  1         1  
  1         23  
5 1     1   19 use 5.010_001;
  1         3  
6              
7 1     1   430 use Pod::Usage;
  1         35416  
  1         135  
8              
9 1     1   7 use version; our $VERSION = 'v0.2.2';
  1         2  
  1         5  
10              
11 1     1   59 use App::Memcached::Roaster;
  1         1  
  1         84  
12              
13             if (__FILE__ eq $0) {
14             main()
15             } else {
16             return 1;
17             }
18              
19             sub main {
20 0     0     my $params = App::Memcached::Roaster->parse_args(@ARGV);
21 0 0         pod2usage(-verbose => 1) if $params->{help};
22 0 0         pod2usage(-verbose => 2) if $params->{man};
23 0           App::Memcached::Roaster->new(%$params)->run;
24             }
25              
26             __END__