view release on metacpan or  search on metacpan

t/tie.t  view on Meta::CPAN

#!./perl

use strict;
use warnings;

print "1..6\n";

my $testno;

sub t ($) {
    print "not " unless shift;
    print "ok ",++$testno,"\n";
}

require Tie::OneOff;

tie my %REV, 'Tie::OneOff' => {
    FETCH => sub { reverse shift },
};