Lines Matching defs:agent

18 #pod * C<agent> — A user-agent string (defaults to 'HTTP-Tiny/$VERSION'). If
19 #pod   C<agent> — ends in a space character, the default user-agent string is
96 sub agent {
97     my($self, $agent) = @_;
99         $self->{agent} =
100             (defined $agent && $agent =~ / $/) ? $agent . $self->_agent : $agent;
102     return $self->{agent};
141     $self->agent( exists $args{agent} ? $args{agent} : $class->_agent );
788     my $agent = exists($request->{headers}{'user-agent'})
789         ? $request->{headers}{'user-agent'} : $self->{agent};
796             'user-agent' => $agent,
838     $request->{headers}{'user-agent'} ||= $self->{agent};
1775 C<agent> — A user-agent string (defaults to 'HTTP-Tiny/$VERSION'). If C<agent> — ends in a space character, the default user-agent string is appended.
2063 agent