In a certain way, my module implements the reverse. Test::MockObject implements faked modules, that always load (or rather are already loaded). My module makes sure that a given module cannot be found via require or use, and that all such calls fail.

This module is solution to the following problem :

I have a module, CGI::Wiki::Simple, which can optionally use HTML::Template. But HTML::Template might not be there, and then I want to fallback onto CGI::Wiki::Simple::NoTemplates, a subclass that provides hardcoded pages. But how do I test that this fallback works ?

#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use Test::Without::Module qw( HTML::Template );

BEGIN{ use_ok('CGI::Wiki::Simple') };

my $wiki = CGI::Wiki::Simple->new(
      PARAMS => { store => {} } # dummy store
   );
isa_ok($wiki, 'CGI::Wiki::Simple', "The created wiki");
isa_ok($wiki, 'CGI::Wiki::Simple::NoTemplates', "The created wiki");
[download]

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]