package Encode::ROT13;

use strict;
use warnings;

use parent qw( Encode::Encoding );

__PACKAGE__->Define( 'rot13' );

sub encode($$;$){
  my( $obj, $str, $chk ) = @_;
  $str =~ tr/A-Za-z/N-ZA-Mn-za-m/;
  $_[1] = '' if $chk; # $_[1] is aliased through the call. Inplace edit.
  return $str;
}

no warnings 'once';
*Encode::ROT13::decode = \&encode; # Because rot13( rot13() ) is a round-trip.

1;


package main;

use strict;
use warnings;