package B::Lint::StrictOO;
use B::Lint;
use if ! B::Lint->can('register_plugin'), 'B::Lint::Pluggable';
B::Lint->register_plugin( ..., [ 'oo' ] ); # I forget what goes in there

sub match {
    my ( $op, $check_href ) = @_;
    if ( $check_href->{oo} ) {

        if ( $op->name eq 'entersub' ) {
            my $class = $op->first->sibling->...; # something. Again, I forget exactly
            my $method = $op->first->sibling->sibling->...; # Another part I don't remember exactly

            # validate both $class and $method
        }
    }
}