sub foo # requires interfaces InterfaceA, InterfaceB
{
 my ($self) = @_;
 InterfaceA::validate($self);
 InterfaceB::validate($self);
}