blob: 0517c263ae7d314f9589c79c0a080c5f98b6baa2 (
plain) (
blame)
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;
|