File Coverage

blib/lib/Eve/Event/HttpResponseReady.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package Eve::Event::HttpResponseReady;
2              
3 8     8   44 use parent qw(Eve::Event);
  8         18  
  8         42  
4              
5 8     8   266 use strict;
  8         19  
  8         336  
6 8     8   44 use warnings;
  8         12  
  8         793  
7              
8             =head1 NAME
9              
10             B - HTTP response ready.
11              
12             =head1 SYNOPSIS
13              
14             use Eve::Event::HttpResponseReady;
15              
16             Eve::Event::HttpResponseReady->new(
17             event_map => $event_map,
18             response => $http_response);
19              
20             =head1 DESCRIPTION
21              
22             B is an event assumed to signal when
23             an HTTP response is ready to be sent.
24              
25             =head3 Attributes
26              
27             =over 4
28              
29             =item C
30              
31             an HTTP response object.
32              
33             =back
34              
35             =head3 Constructor arguments
36              
37             =over 4
38              
39             =item C
40              
41             an event map object
42              
43             =item C
44              
45             an HTTP response object.
46              
47             =back
48              
49             =head1 METHODS
50              
51             =head2 B
52              
53             =cut
54              
55             sub init {
56 0     0 1   my ($self, %arg_hash) = @_;
57 0           Eve::Support::arguments(\%arg_hash, my ($event_map, $response));
58              
59 0           $self->{'response'} = $response;
60              
61 0           $self->SUPER::init(event_map => $event_map);
62              
63 0           return;
64             }
65              
66             =head1 LICENSE AND COPYRIGHT
67              
68             Copyright 2012 Igor Zinovyev.
69              
70             This program is free software; you can redistribute it and/or modify it
71             under the terms of either: the GNU General Public License as published
72             by the Free Software Foundation; or the Artistic License.
73              
74             See http://dev.perl.org/licenses/ for more information.
75              
76              
77             =head1 AUTHOR
78              
79             =over 4
80              
81             =item L
82              
83             =back
84              
85             =cut
86              
87             1;