Select Code to Download

{
    package Naughty;
    use base 'Exporter';
...
else {
  print "home free";
}

package strict::can;

use warnings;
...
}

1;

#!perl

#use Test::More tests => 1;
...

ok !Unsuspecting::Subclass->can('_private'),
  'strict::can should ignore functions which begin with an underscore'
+;

sub can {
    my ( $proto, $method ) = @_;

...
    }   
    return; 
}