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   528 use strict;
  3         3  
  3         65  
3 3     3   1082 use HTTP::Request;
  3         42785  
  3         75  
4 3     3   1309 use Template;
  3         40914  
  3         91  
5 3     3   17 use base 'Class::Accessor';
  3         3  
  3         628  
6              
7 3     3   5108 use vars qw($VERSION);
  3         7  
  3         834  
8              
9             $VERSION = '0.04';
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 = <