Plagger::Plugin::UserAgent::RequestHeader - Add arbitrary request header

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::UserAgent::RequestHeader - Add arbitrary request header

SYNOPSIS

Top

  - module: UserAgent::RequestHeader
    config:
      Accept-Language: ja, en

DESCRIPTION

Top

This plugin hooks Plagger::UserAgent request method to add arbitrary request header when HTTP request is sent.

AUTHOR

Top

Tatsuhiko Miyagawa

SEE ALSO

Top

Plagger, LWP::UserAgent

Plagger documentation Contained in the Plagger distribution. 
package Plagger::Plugin::UserAgent::RequestHeader;
use strict;
use warnings;
use base qw( Plagger::Plugin );

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'useragent.request' => \&add_header,
    );
}

sub add_header {
    my($self, $context, $args) = @_;

    for my $header (keys %{ $self->conf }) {
        $args->{ua}->default_header( $header => $self->conf->{$header} );
    }
}

1;

__END__