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