line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package HTTP::Balancer; |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
our $VERSION = '0.0.2'; |
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
1067
|
use Modern::Perl; |
|
1
|
|
|
|
|
15907
|
|
|
1
|
|
|
|
|
6
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
781
|
use Moose; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
use MooseX::Singleton; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
use HTTP::Balancer::Command; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
sub run { |
13
|
|
|
|
|
|
|
my ($self, ) = @_; |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
HTTP::Balancer::Command |
16
|
|
|
|
|
|
|
->dispatch(@ARGV) |
17
|
|
|
|
|
|
|
->new_with_options |
18
|
|
|
|
|
|
|
->prepare() |
19
|
|
|
|
|
|
|
->run(); |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
__END__ |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=head1 NAME |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
HTTP::Balancer - manage your http load balancer in seconds |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
=head1 SYNOPSIS |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
use HTTP::Balancer; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
HTTP::Balancer->new->run; |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
=head1 DESCRIPTION |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
HTTP::Balancer is |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
=head1 AUTHOR |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
shelling E<lt>navyblueshellingford@gmail.comE<gt> |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
=head1 SEE ALSO |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
L<Namespace::Dispatch> |
46
|
|
|
|
|
|
|
L<MooseX::Getopt> |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=head1 LICENSE |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
Copyright (C) shelling |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
The MIT License |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
=cut |