view release on metacpan or  search on metacpan

t/04-frozen.t  view on Meta::CPAN

    $anon->set(5);
    $anon->freeze;
    ok $anon->frozen,   'anonymous bitset can be frozen';
    ok $anon->readonly, 'freezing an anonymous handle makes it read-only';
    is $anon->test(5), 1, 'anonymous frozen bitset still queryable';
    like exception(sub { $anon->set(6) }), qr/read-only/, 'mutating a frozen anonymous bitset croaks';
}

done_testing;

# minimal exception helper (avoid a Test::Fatal dependency)
sub exception {
    my $code = shift;
    my $err;
    { local $@; eval { $code->(); 1 } or $err = $@; }
    return $err;
}