package B::FindGlobals;

use B::Utils 'walkallops_filtered';

sub compile
{
	return sub {
		walkallops_filtered( \&gv_only, \&report_global );
	};
}

sub gv_only
{
	my $op = shift;
	return unless $op->name() =~ /^gv/;
	return unless $B::Utils::file eq $0;
	return 1;
}

sub report_global
{
	my $op = shift;
	printf "%s: % 4d %s\n", $B::Utils::file, $B::Utils::line,
		$op->gv()->NAME();
}

1;