{
   package Foo;
   sub DOES {
      my ($self, $role) = @_;
      return 1 if ...;
      return $self->SUPER::DOES($role);
   }
}

Foo->DOES(...);                 # Line "A"
UNIVERSAL::DOES('Foo', ...);    # Line "B"