/usr/local/CPAN/Penguin/Penguin/Wrapper/Transparent.pm

• package Penguin::Wrapper::Transparent
  • new
  • wrap
  • unwrap
• EOF

package Penguin::Wrapper::Transparent;

sub new {
    bless { Wrapmethod => 'Transparent' }, shift;
}

sub wrap {
    my ($self, %args)  = @_;
    return $args{'Text'}; # NOTE: NO ATTEMPT MADE TO ENCRYPT OR SIGN
}

sub unwrap {
    my ($self, %args)  = @_;
    return ("NO SIGNING AUTHORITY", $args{'Text'});
}

1;