File Coverage

blib/lib/B/FindAmpersand.pm

Criterion	Covered	Total	%
statement	23	30	76.6
branch	3	4	75.0
condition			n/a
subroutine	13	19	68.4
pod	0	1	0.0
total	39	54	72.2

package B::FindAmpersand;
BEGIN {
  require Config;
  die "B::FindAmpersand not supported for threaded perl" if $Config::Config{usethreads};
}

use B;
use strict;
use vars qw($VERSION);

$VERSION = "0.04";

my $evil = join "", qw"[ ` & ' ]";

sub compile {
    return sub { B::walkoptree(B::main_root(), "findampersand") }
}

sub B::GVOP::findampersand {
    my($op, $level) = @_;
    $op->gv->findampersand($op);
}

sub B::GV::findampersand {
    my($gv) = @_;
    return unless $gv->NAME =~ /^$evil$/;
    my @report = ($gv->NAME, $gv->FILEGV->SV->PV, $gv->LINE);
    warn sprintf "Found evil variable \$%s in file %s, line %s\n", @report;
}

sub B::OP::findampersand {}
*B::SVOP::findampersand = $] < 5.006 ? sub {} : sub {
    shift->gv->findampersand;
};
sub B::PMOP::findampersand {}
sub B::PVOP::findampersand {}
sub B::COP::findampersand {}
sub B::PV::findampersand {}
sub B::AV::findampersand {}
sub B::IV::findampersand {}
sub B::NV::findampersand {}
sub B::NULL::findampersand {}
sub B::SPECIAL::findampersand {}

1;

__END__