2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
14 ::BAIL_OUT('A::foo called twice') if $main::seen{'A::foo'}++;
19 ::BAIL_OUT('A::bar called twice') if $main::seen{'A::bar'}++;
24 ::BAIL_OUT('A::baz called twice') if $main::seen{'A::baz'}++;
35 ::BAIL_OUT('B::foo called twice') if $main::seen{'B::foo'}++;
40 ::BAIL_OUT('B::bar called twice') if $main::seen{'B::bar'}++;
41 return 'b' . ( super() || '' );
45 ::BAIL_OUT('B::baz called twice') if $main::seen{'B::baz'}++;
55 sub foo { return 'c' . ( super() || '' ) }
58 ::BAIL_OUT('C::bar called twice') if $main::seen{'C::bar'}++;
63 ::BAIL_OUT('C::baz called twice') if $main::seen{'C::baz'}++;
68 is( C->new->foo, 'c' );
69 is( C->new->bar, 'cb' );
70 is( C->new->baz, 'cba' );