File Coverage

blib/lib/HTTP/Request/FromTemplate.pm
Criterion Covered Total %
statement 34 35 97.1
branch 4 8 50.0
condition 2 5 40.0
subroutine 7 7 100.0
pod 1 2 50.0
total 48 57 84.2


line stmt bran cond sub pod time code
1             package HTTP::Request::FromTemplate;
2 3     3   893 use strict;
  3         8  
  3         111  
3 3     3   2737 use HTTP::Request;
  3         125634  
  3         155  
4 3     3   24181 use Template;
  3         89528  
  3         102  
5 3     3   33 use base 'Class::Accessor';
  3         171  
  3         1468  
6            
7 3     3   10460 use vars qw($VERSION);
  3         8  
  3         1444  
8            
9             $VERSION = '0.03';
10            
11             =head1 NAME
12            
13             HTTP::Request::FromTemplate - Create HTTP requests from templates
14            
15             =head1 SYNOPSIS
16            
17             use HTTP::Request::FromTemplate;
18             use LWP::UserAgent;
19            
20             my $ua = LWP::UserAgent->new();
21            
22             # A request, snarfed from your network monitor logs:
23             my $template = <