File Coverage

lib/Drogo/Request.pm
Criterion Covered Total %
statement 6 19 31.5
branch n/a
condition n/a
subroutine 2 12 16.6
pod 9 10 90.0
total 17 41 41.4


line stmt bran cond sub pod time code
1             package Drogo::Request;
2              
3 1     1   6 use Drogo::Guts;
  1         2  
  1         241  
4 1     1   5 use strict;
  1         2  
  1         290  
5              
6             sub new
7             {
8 0     0 0   my $class = shift;
9 0           my $self = {};
10 0           bless($self);
11 0           return $self;
12             }
13              
14             =head3 $self->uri
15              
16             Returns the uri.
17              
18             =cut
19              
20 0     0 1   sub uri { Drogo::Guts::uri(@_) }
21              
22              
23             =head3 $self->header_in
24              
25             Return value of header_in.
26              
27             =cut
28              
29 0     0 1   sub header_in { Drogo::Guts::header_in(@_) }
30              
31             =head3 $self->request_body & $self->request
32            
33             Returns request body.
34              
35             =cut
36              
37 0     0 1   sub request_body { Drogo::Guts::request_body(@_) }
38 0     0 1   sub request { Drogo::Guts::request(@_) }
39              
40             =head3 $self->request_method
41              
42             Returns the request_method.
43              
44             =cut
45              
46 0     0 1   sub request_method { Drogo::Guts::request_method(@_) }
47              
48             =head3 $self->request_part(...)
49              
50             Returns reference for upload.
51              
52             {
53             'filename' => 'filename',
54             'tmp_file' => '/tmp/drogomp-23198-1330057261',
55             'fh' => \*{'Drogo::Guts::MultiPart::$request_part{...}'},
56             'name' => 'foo'
57             }
58              
59             =cut
60              
61 0     0 1   sub request_part { Drogo::Guts::request_part(@_) }
62              
63             =head3 $self->matches
64              
65             Returns array of post_arguments (matching path after a matched ActionMatch attribute)
66             Returns array of matching elements when used with ActionRegex.
67              
68             =cut
69              
70 0     0 1   sub matches { Drogo::Guts::matches(@_) }
71              
72             =head3 $self->param(...)
73              
74             Return a parameter passed via CGI--works like CGI::param.
75              
76             =cut
77              
78 0     0 1   sub param { Drogo::Guts::param(@_) }
79              
80             =head3 $self->param_hash
81            
82             Return a friendly hashref of CGI parameters.
83              
84             =cut
85              
86 0     0 1   sub param_hash { Drogo::Guts::param_hash(@_) }
87              
88             =head1 AUTHORS
89              
90             Bizowie
91              
92             =head1 COPYRIGHT AND LICENSE
93              
94             Copyright (C) 2013 Bizowie
95              
96             This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.
97              
98             =cut
99              
100             1;