The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Moxy::Plugin::RefererCutter;
use strict;
use warnings;

sub register {
    my ($class, $context) = @_;

    $context->register_hook(
        request_filter => sub {
            my ($context, $args) = @_;

            $args->{request}->remove_header('Referer');
        }
    );
}

1;
__END__

=head1 NAME

Moxy::Plugin::RefererCutter - remove referer

=head1 DESCRIPTION

do not send referer.

=head1 AUTHOR

Tokuhiro Matsuno

=head1 SEE ALSO

L<Moxy>