File Coverage

blib/lib/Net/HTTP/Spore/Middleware/UserAgent.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 7 8 87.5


line stmt bran cond sub pod time code
1             package Net::HTTP::Spore::Middleware::UserAgent;
2             $Net::HTTP::Spore::Middleware::UserAgent::VERSION = '0.08';
3             # ABSTRACT: middleware to change the user-agent value
4              
5 1     1   606 use Moose;
  1         2  
  1         7  
6             extends qw/Net::HTTP::Spore::Middleware/;
7              
8             has useragent => (is => 'ro', isa => 'Str', required => 1);
9              
10             sub call {
11 1     1 0 2 my ($self, $req) = @_;
12              
13 1         34 $req->header('User-Agent' => $self->useragent);
14             }
15              
16             1;
17              
18             __END__
19              
20             =pod
21              
22             =encoding UTF-8
23              
24             =head1 NAME
25              
26             Net::HTTP::Spore::Middleware::UserAgent - middleware to change the user-agent value
27              
28             =head1 VERSION
29              
30             version 0.08
31              
32             =head1 SYNOPSIS
33              
34             my $client = Net::HTTP::Spore->new_from_spec('twitter.json');
35             $client->enable('UserAgent', useragent => 'Mozilla/5.0 (X11; Linux x86_64; rv:2.0b4) Gecko/20100818 Firefox/4.0b4');
36              
37             =head1 DESCRIPTION
38              
39             Net::HTTP::Spore::Middleware::UserAgent change the default value of the useragent.
40              
41             =head1 AUTHORS
42              
43             =over 4
44              
45             =item *
46              
47             Franck Cuny <franck.cuny@gmail.com>
48              
49             =item *
50              
51             Ash Berlin <ash@cpan.org>
52              
53             =item *
54              
55             Ahmad Fatoum <athreef@cpan.org>
56              
57             =back
58              
59             =head1 COPYRIGHT AND LICENSE
60              
61             This software is copyright (c) 2012 by Linkfluence.
62              
63             This is free software; you can redistribute it and/or modify it under
64             the same terms as the Perl 5 programming language system itself.
65              
66             =cut