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;
16 my ( $orig, $self, $v ) = @_;
17 return 1 if $v eq 'Bar';
18 return $orig->( $self, $v );
24 use Test::More; # for $TODO
26 local $TODO = 'UNIVERSAL methods should be wrappable';
28 ::lives_ok { with 'FakeBar' } 'applied role';