sub fulfills_interface_foo {
    my $self = shift;
    return $self->can( ... )
        and $self->can( ... )
        and $self->can( ... )
        and $self->can( ... );
}