File Coverage

blib/lib/Acme/Spider.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	25	27	92.5

package Acme::Spider;
$Acme::Spider::VERSION = '0.02';

=head1 NAME

Acme::Spider - frighten some other modules

=head1 SYNOPSIS

  use Acme::Spider;

=head1 DESCRIPTION

Damian Conway is afraid of spiders, and all his code is afraid of this spider.

=head1 TODO

As the spider evolves, it will become better at recognising Damian's modules.
It's a pity evolution doesn't happen without some help.

=cut

use strict;
use warnings;
use Carp;

my $re = do {
	my @data = ;
	chomp @data;
	my $data = join '|', @data;
	qr/^(?:$data)/;
};

sub victim {
	my ($file) = @_;
	return scalar $file =~ $re;
}

sub bite {
	my ($self, $file) = @_;
	# we need to expand this test to include other Damian modules.
	if (victim($file)) {
		carp "$file doesn't like spiders";
		return 0;
	}
	return undef;
}

BEGIN { unshift @INC, \&bite }

=head1 AUTHORS

Marty Pauley [e-mail]
Karen Pauley [e-mail]

=head1 COPYRIGHT

  Copyright (C) 2006 Marty and Karen

  This program is free software; you can redistribute it and/or modify it under
  the terms of either the GNU General Public License; either version 2 of the
  License, or (at your option) any later version.

  This program is distributed in the hope that it will be useful, but WITHOUT
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  FOR A PARTICULAR PURPOSE.

=cut

1;

__DATA__