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   71359 use strict;
  5         20  
  5         152  
4 5     5   27 use warnings;
  5         11  
  5         188  
5 5     5   2480 use WWW::Form::UrlEncoded qw/parse_urlencoded_arrayref/;
  5         29715  
  5         763  
6              
7             sub new {
8 26     26 0 21615 bless [''], $_[0];
9             }
10              
11             sub add {
12 34     34 0 106 my $self = shift;
13 34 50       85 if (defined $_[0]) {
14 34         106 $self->[0] .= $_[0];
15             }
16             }
17              
18             sub finalize {
19 26     26 0 111 return (parse_urlencoded_arrayref($_[0]->[0]), []);
20             }
21              
22              
23             1;
24             __END__