The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Net::HTTP::Spore::Middleware::DoNotTrack;
{
  $Net::HTTP::Spore::Middleware::DoNotTrack::VERSION = '0.06';
}

# ABSTRACT: add a new header to not track

use Moose;
extends 'Net::HTTP::Spore::Middleware';

sub call {
    my ($self, $req) = @_;
    $req->header('x-do-not-track' => 1);
}

1;

__END__

=pod

=head1 NAME

Net::HTTP::Spore::Middleware::DoNotTrack - add a new header to not track

=head1 VERSION

version 0.06

=head1 SYNOPSIS

    my $client = Net::HTTP::Spore->new_from_spec('twitter.json');
    $client->enable('DoNotTrack');

=head1 DESCRIPTION

Add a header B<x-do-not-track> to your requests. For more details see L<http://donottrack.us/>.

=head1 AUTHORS

=over 4

=item *

franck cuny <franck@lumberjaph.net>

=item *

Ash Berlin <ash@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by linkfluence.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut