package Tie::ReverseScalar;

sub TIESCALAR {
    my $class = shift;
    return bless \$_[0] => $class;
}

sub FETCH {
    return reverse ${$_[0]};
}

sub STORE {
    ${$_[0]} = reverse $_[1];
}

sub DESTROY {
    undef ${$_[0]};
}

1;