lib/Net/HTTP/Spore/Middleware/UserAgent.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Net::HTTP::Spore::Middleware::UserAgent;

use Moose;
extends qw/Net::HTTP::Spore::Middleware/;

has useragent => (is => 'ro', isa => 'Str', required => 1);

sub call {
    my ($self, $req) = @_;

    $req->header('User-Agent' => $self->useragent);
}


1;