File Coverage

script/memcached-cli

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

#!/usr/bin/env perl

use strict;
use warnings;
use 5.008_001;

use Pod::Usage;

use version; our $VERSION = 'v0.9.5';

use App::Memcached::CLI::Main;

if (__FILE__ eq $0) {
    main()
} else {
    return 1;
}

sub main {
    my $Cli_Class = 'App::Memcached::CLI::Main';
    my $params = $Cli_Class->parse_args;
    pod2usage(-verbose => 1) if $params->{help};
    pod2usage(-verbose => 2) if $params->{man};
    my $cli = $Cli_Class->new(%$params) or pod2usage(-verbose => 1);
    $cli->run;
}

__END__