view release on metacpan or  search on metacpan

worktrees/audit-fixes-master/agent_scripts/audit-methods-not-functions  view on Meta::CPAN

# included so signature-style methods (`sub foo ($self, ...)`) count
# their signature invokant. Multi-line / complex methods stay clean
# because the invokant pickup almost always lives in the signature or
# at the very top of the sub.

use File::Find ();

my @ROOTS = @ARGV ? @ARGV : ('lib');

my %SPECIAL = map { $_ => 1 } qw(
    BEGIN END INIT CHECK UNITCHECK DESTROY AUTOLOAD CLONE CLONE_SKIP
    import unimport
);

my %ALLOW_ARGLESS_CONSTANT = map { $_ => 1 } qw(
    TABLE PRIMARY_KEY COLUMNS JSON_COLUMNS ROW DB_CLASS
);

my @hits;

for my $root (@ROOTS) {

worktrees/dbic-compat-native-features/agent_scripts/audit-methods-not-functions  view on Meta::CPAN

# included so signature-style methods (`sub foo ($self, ...)`) count
# their signature invokant. Multi-line / complex methods stay clean
# because the invokant pickup almost always lives in the signature or
# at the very top of the sub.

use File::Find ();

my @ROOTS = @ARGV ? @ARGV : ('lib');

my %SPECIAL = map { $_ => 1 } qw(
    BEGIN END INIT CHECK UNITCHECK DESTROY AUTOLOAD CLONE CLONE_SKIP
    import unimport
);

my %ALLOW_ARGLESS_CONSTANT = map { $_ => 1 } qw(
    TABLE PRIMARY_KEY COLUMNS JSON_COLUMNS ROW DB_CLASS
);

my @hits;

for my $root (@ROOTS) {