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 } } }
⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊
In reply to Re: Perl OO Lint
by diotalevi
in thread Perl OO Lint
by jffry
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |