view release on metacpan or  search on metacpan

lib/App/grepurl.pm  view on Meta::CPAN

	die "$FindBin::Script: $@" if $@;

	$regex;
	}

sub uncommify {
	my( $self, $option ) = @_;

	return {} unless defined $option;

	return { map { $_, 1 } split m/,/, $option };
	}

sub debug_summary {
	my( $self ) = @_;
	no warnings;

	local $" = "\n\t";

	my $opts = $self->{opts};