File Coverage

blib/lib/HTTP/Balancer/Command.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             package HTTP::Balancer::Command;
2              
3 1     1   4 use Modern::Perl;
  1         2  
  1         6  
4              
5 1     1   483 use Moose;
  0            
  0            
6              
7             with qw( HTTP::Balancer::Role::Command );
8              
9             sub run {
10             my ($self, ) = @_;
11             $self->dispatch("help")->new_with_options->prepare->run;
12             }
13              
14             1;
15             __END__
16              
17             =head1 NAME
18              
19             HTTP::Balancer::Command - root node of handlers of HTTP::Balancer
20              
21             =head1 SYNOPSIS
22              
23             use HTTP::Balancer::Command;
24              
25             HTTP::Balancer
26             ->dispatch(@consequence)
27             ->new_with_options()
28             ->prepare()
29             ->run();
30              
31             =head1 SEE ALSO
32              
33             L<Namespace::Dispatch>
34              
35             =cut