in reply to Perl OO Lint

I wrote an article for Perl Hacks on exactly this subject. Extend B::Lint to check for non-existant classes/methods. There's three parts I don't remember exactly what to do here but you could easily enough find out by reading the 5.9.3+ perl's B::Lint docs or B::Lint::Pluggable for earlier versions. If you bug me in the chatterbox later, I may be able to pull up what exactly goes in the missing parts. Or just learn to do this yourself.

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 the +re 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 } } }

⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊