File Coverage

blib/lib/Test/Mock/HTTP/Request.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             package Test::Mock::HTTP::Request;
2 2     2   11 use strict;
  2         4  
  2         79  
3 2     2   11 use warnings;
  2         3  
  2         53  
4 2     2   10 use Test::MockObject;
  2         4  
  2         11  
5 2     2   63 use base 'Exporter';
  2         4  
  2         580  
6             our @EXPORT = qw($Mock_req $Mock_request);
7              
8             our $Mock_req;
9             our $Mock_request;
10              
11             =head1 NAME
12              
13             Test::Mock::HTTP::Request - Mocks HTTP::Request
14              
15             =cut
16              
17             =head1 SYNOPSIS
18              
19             Make HTTP::Request to make testing easier.
20              
21             See Test::Mock::LWP manpage for more details.
22              
23             This class uses Test::MockObject, so refer to it's documentation as well.
24              
25             =cut
26              
27             our $VERSION = '0.01';
28              
29             BEGIN {
30 2     2   11 $Mock_request = $Mock_req = Test::MockObject->new;
31             $Mock_req->fake_module('HTTP::Request',
32 2     1   27 new => sub { $Mock_req->{new_args} = [@_]; $Mock_req });
  1         1883  
  1         3  
33             }
34             $Mock_req->set_always('authorization_basic', '');
35             $Mock_req->set_always('header', '');
36             $Mock_req->set_always('content', '');
37              
38 0     0 0   sub new { $Mock_req };
39             $Mock_req->mock('-new_args', sub { delete $Mock_req->{new_args} });
40              
41             package # hide from PAUSE
42             HTTP::Request;
43              
44             our $VERSION = 'Mocked';
45              
46             =head1 AUTHOR
47              
48             Luke Closs, C<< >>
49              
50             =head1 BUGS
51              
52             Please report any bugs or feature requests through the web interface at
53             L.
54             I will be notified, and then you'll automatically be notified of progress on
55             your bug as I make changes.
56              
57             =head1 SUPPORT
58              
59             You can find documentation for this module with the perldoc command.
60              
61             perldoc Test::Mock::LWP
62              
63             You can also look for information at:
64              
65             =over 4
66              
67             =item * AnnoCPAN: Annotated CPAN documentation
68              
69             L
70              
71             =item * CPAN Ratings
72              
73             L
74              
75             =item * RT: CPAN's request tracker
76              
77             L
78              
79             =item * Search CPAN
80              
81             L
82              
83             =back
84              
85             =head1 ACKNOWLEDGEMENTS
86              
87             =head1 COPYRIGHT & LICENSE
88              
89             Copyright 2006 Luke Closs, all rights reserved.
90              
91             This program is free software; you can redistribute it and/or modify it
92             under the same terms as Perl itself.
93              
94             =cut
95              
96             1;