File Coverage

blib/lib/Net/HTTP/Spore/Middleware/DoNotTrack.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::DoNotTrack;
2             $Net::HTTP::Spore::Middleware::DoNotTrack::VERSION = '0.09';
3             # ABSTRACT: add a new header to not track
4              
5 1     1   585 use Moose;
  1         2  
  1         6  
6             extends 'Net::HTTP::Spore::Middleware';
7              
8             sub call {
9 1     1 0 3 my ($self, $req) = @_;
10 1         6 $req->header('x-do-not-track' => 1);
11             }
12              
13             1;
14              
15             __END__
16              
17             =pod
18              
19             =encoding UTF-8
20              
21             =head1 NAME
22              
23             Net::HTTP::Spore::Middleware::DoNotTrack - add a new header to not track
24              
25             =head1 VERSION
26              
27             version 0.09
28              
29             =head1 SYNOPSIS
30              
31             my $client = Net::HTTP::Spore->new_from_spec('twitter.json');
32             $client->enable('DoNotTrack');
33              
34             =head1 DESCRIPTION
35              
36             Add a header B<x-do-not-track> to your requests. For more details see L<http://donottrack.us/>.
37              
38             =head1 AUTHORS
39              
40             =over 4
41              
42             =item *
43              
44             Franck Cuny <franck.cuny@gmail.com>
45              
46             =item *
47              
48             Ash Berlin <ash@cpan.org>
49              
50             =item *
51              
52             Ahmad Fatoum <athreef@cpan.org>
53              
54             =back
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2012 by Linkfluence.
59              
60             This is free software; you can redistribute it and/or modify it under
61             the same terms as the Perl 5 programming language system itself.
62              
63             =cut