package Foo;
use Fergal::MM qw( Bar );

sub setBar
{
  my $self = shift;
  my $value = shift;
  check($value);
  $self->SUPER::setBar($value);
}