File Coverage

blib/lib/WebService/BuzzurlAPI/Request/UrlInfo.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package WebService::BuzzurlAPI::Request::UrlInfo;
2              
3 1     1   5 use strict;
  1         2  
  1         38  
4 1     1   6 use base qw(WebService::BuzzurlAPI::Request::Base);
  1         2  
  1         584  
5              
6             our $VERSION = 0.02;
7              
8             sub filter_param {
9              
10 1     1 1 2 my($self, $param) = @_;
11 1         12 $param->{url} = $self->drop_utf8flag($param->{url});
12             }
13              
14             sub make_request_url {
15              
16 1     1 1 3 my($self, $param) = @_;
17 1         11 my $path = sprintf $self->uri->path, "posts/get";
18 1         169 $self->uri->path($path);
19 1         58 $self->uri->query_form($param);
20             }
21              
22              
23             1;