Acme::Spider - frighten some other modules

  use Acme::Spider;

  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.

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

use strict;
use warnings;
use Carp;

my $re = do {
	my @data = <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 }

1;

__DATA__
Acme/Bleach
Acme/Don/t
Attribute/Handlers
Attribute/Handlers/Prospective
Attribute/Types
Class/Contract
Class/Delegation
Class/Multimethods
Class/Std
Class/Std/Utils
Config/Std
Contextual/Return
Coy
Debug/Phases
Filter/Simple
Getopt/Clade
Getopt/Declare
Getopt/Euclid
Hook/LexWrap
Inline/Files
IO/Busy
IO/InSitu
IO/Interactive
IO/Prompt
Leading/Zeros
Lingua/EN/Inflect
Lingua/Romana/Perligata
List/Maker
Log/StdLog
Module/Starter/PBP
NEXT
Parse/RecDescent
Perl6/Builtins
Perl6/Currying
Perl6/Export
Perl6/Export/Attrs
Perl6/Form
Perl6/Gather
Perl6/Placeholders
Perl6/Rules
Perl6/Say
Perl6/Slurp
Perl6/Variables
Quantum/Superpositions
Regexp/Common
Regexp/MatchContext
Smart/Comments
Sub/Installer
Switch
Text/Autoformat
Text/Balanced
Text/Reform
Tie/SecureHash
Toolkit