File Coverage

blib/lib/HTTP/Entity/Parser/UrlEncoded.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package HTTP::Entity::Parser::UrlEncoded;
2              
3 5     5   73085 use strict;
  5         23  
  5         147  
4 5     5   29 use warnings;
  5         11  
  5         153  
5 5     5   2503 use WWW::Form::UrlEncoded qw/parse_urlencoded_arrayref/;
  5         29574  
  5         776  
6              
7             sub new {
8 26     26 0 21320 bless [''], $_[0];
9             }
10              
11             sub add {
12 34     34 0 117 my $self = shift;
13 34 50       89 if (defined $_[0]) {
14 34         113 $self->[0] .= $_[0];
15             }
16             }
17              
18             sub finalize {
19 26     26 0 115 return (parse_urlencoded_arrayref($_[0]->[0]), []);
20             }
21              
22              
23             1;
24             __END__