package Rot13 ;

use Filter::Util::Call ;

sub import {
   my ($type) = @_ ;
   my ($ref) = [] ;
   filter_add(bless $ref) ;
}
sub filter {
   my ($self) = @_ ;
   my ($status) ;

   tr/n-za-mN-ZA-M/a-zA-Z/
      if ($status = filter_read()) > 0 ;
   $status ;
}

1;