5 use Test::More tests => 2;
13 my ( $orig, $self, $v ) = @_;
14 return 1 if $v eq 'Bar';
15 return $orig->( $self, $v );
21 use Test::More; # for $TODO
23 local $TODO = 'UNIVERSAL methods should be wrappable';
25 ::lives_ok { with 'FakeBar' } 'applied role';