package LWP::Sink::rot13;

require LWP::Sink;
require LWP::Sink::_Pipe;

@ISA=qw(LWP::Sink::_Pipe
        LWP::Sink
       );

use strict;

sub put
{
    my($self, $data) = @_;
    my $sink = $self->{'sink'};
    $data =~ tr[A-Ma-mN-Zn-z]
               [N-Zn-zA-Ma-m];
    $sink->put($data) if $sink;
    $self;
}

@LWP::Sink::rot13::encode::ISA=qw(LWP::Sink::rot13);
@LWP::Sink::rot13::decode::ISA=qw(LWP::Sink::rot13);

1;