line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package EntityModel::Web::Page::Handler; |
2
|
|
|
|
|
|
|
{ |
3
|
|
|
|
|
|
|
$EntityModel::Web::Page::Handler::VERSION = '0.004'; |
4
|
|
|
|
|
|
|
} |
5
|
|
|
|
|
|
|
use EntityModel::Class { |
6
|
1
|
|
|
|
|
11
|
type => 'string', |
7
|
|
|
|
|
|
|
method => 'string', |
8
|
1
|
|
|
1
|
|
922
|
}; |
|
1
|
|
|
|
|
1
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
=head1 NAME |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
=head1 SYNOPSIS |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
=head1 VERSION |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
version 0.004 |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
=head1 DESCRIPTION |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=cut |
23
|
|
|
|
|
|
|
|
24
|
1
|
|
|
1
|
|
497
|
use Data::Dumper; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
298
|
|
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
use overload |
27
|
|
|
|
|
|
|
'&{}' => sub { |
28
|
0
|
|
|
0
|
|
|
my ($self, @args) = @_; |
29
|
|
|
|
|
|
|
sub { |
30
|
0
|
|
|
0
|
|
|
my $resp = shift; |
31
|
0
|
|
0
|
|
|
|
logWarning("Req: %s, we are holding: %s", $resp->request, join ',', map $_ // 'undef', @_); |
32
|
0
|
|
|
|
|
|
my $req = $resp->request; |
33
|
0
|
|
|
|
|
|
logWarning("Header - %s: %s", $_->name, $_->value) for $req->header->list; |
34
|
0
|
|
|
|
|
|
logWarning("POST: " . $_ . " => " . $req->post->{$_}) for sort $req->post->keys; |
35
|
0
|
|
|
|
|
|
logWarning("GET " . $_ . " => " . $req->get->{$_}) for sort $req->get->keys; |
36
|
|
|
|
|
|
|
} |
37
|
0
|
|
|
|
|
|
}, |
38
|
1
|
|
|
1
|
|
5
|
fallback => 1; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
11
|
|
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
=head1 METHODS |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
=cut |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
sub new { |
45
|
0
|
|
|
0
|
1
|
|
my $class = shift; |
46
|
0
|
|
|
|
|
|
my $self = $class->SUPER::new; |
47
|
0
|
|
|
|
|
|
my %args = %{$_[0]}; |
|
0
|
|
|
|
|
|
|
48
|
0
|
|
|
|
|
|
$self->$_($args{$_}) for sort keys %args; |
49
|
0
|
|
|
|
|
|
logWarning("Have type %s with method %s", $self->type, $self->method); |
50
|
0
|
|
|
|
|
|
return $self; |
51
|
|
|
|
|
|
|
} |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
1; |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
__END__ |