view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

    my @array = (1..10);
    Internals::SvREADONLY(@array, 1);
    eval { permute {} @array };
    print ($@ =~ /^(Modification of|Can't permute) a read-only/ ?
	"ok 13\n" :
	"not ok 13\t# $@\n");
}

my $c;
package TieTest;
sub TIEARRAY  {bless []}
sub FETCHSIZE {5}
sub FETCH     { ++$c; $_[1]}
sub c         {$c}