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   71762 use strict;
  5         22  
  5         148  
4 5     5   26 use warnings;
  5         10  
  5         145  
5 5     5   2471 use WWW::Form::UrlEncoded qw/parse_urlencoded_arrayref/;
  5         29078  
  5         746  
6              
7             sub new {
8 26     26 0 21434 bless [''], $_[0];
9             }
10              
11             sub add {
12 34     34 0 108 my $self = shift;
13 34 50       90 if (defined $_[0]) {
14 34         108 $self->[0] .= $_[0];
15             }
16             }
17              
18             sub finalize {
19 26     26 0 112 return (parse_urlencoded_arrayref($_[0]->[0]), []);
20             }
21              
22              
23             1;
24             __END__