1use strict; 2use Test::More tests => 2; 3require Class::Accessor::Fast::Contained; 4 5@Frog::ISA = ('Class::Accessor::Fast::Contained'); 6my $croaked = 0; 7sub Frog::_croak { ++$croaked } 8Frog->mk_ro_accessors('test_ro'); 9Frog->mk_wo_accessors('test_wo'); 10 11my $frog = Frog->new; 12 13eval { 14 $croaked = 0; 15 $frog->test_ro("foo"); 16 is $croaked, 1, "we croaked for ro"; 17 18 $croaked = 0; 19 $frog->test_wo; 20 is $croaked, 1, "we croaked for wo"; 21}; 22 23fail "We really croaked: $@" if $@; 24 25