11 ::BAIL_OUT('A::foo called twice') if $main::seen{'A::foo'}++;
16 ::BAIL_OUT('A::bar called twice') if $main::seen{'A::bar'}++;
21 ::BAIL_OUT('A::baz called twice') if $main::seen{'A::baz'}++;
32 ::BAIL_OUT('B::foo called twice') if $main::seen{'B::foo'}++;
37 ::BAIL_OUT('B::bar called twice') if $main::seen{'B::bar'}++;
38 return 'b' . ( super() || '' );
42 ::BAIL_OUT('B::baz called twice') if $main::seen{'B::baz'}++;
52 sub foo { return 'c' . ( super() || '' ) }
55 ::BAIL_OUT('C::bar called twice') if $main::seen{'C::bar'}++;
60 ::BAIL_OUT('C::baz called twice') if $main::seen{'C::baz'}++;
65 is( C->new->foo, 'c' );
66 is( C->new->bar, 'cb' );
67 is( C->new->baz, 'cba' );