test::without::module(3pm) [debian man page]

Test::Without::Module(3pm)				User Contributed Perl Documentation				Test::Without::Module(3pm)

NAME

       Test::Without::Module - Test fallback behaviour in absence of modules

SYNOPSIS

	 use Test::Without::Module qw( My::Module );

	 # Now, loading of My::Module fails :
	 eval { require My::Module; };
	 warn $@ if $@;

	 # Now it works again
	 eval q{ no Test::Without::Module qw( My::Module ) };
	 eval { require My::Module; };
	 print "Found My::Module" unless $@;

DESCRIPTION

       This module allows you to deliberately hide modules from a program even though they are installed. This is mostly useful for testing
       modules that have a fallback when a certain dependency module is not installed.

   EXPORT
       None. All magic is done via "use Test::Without::Module LIST" and "no Test::Without::Module LIST".

   Test::Without::Module::get_forbidden_list
       This function returns a reference to a copy of the current hash of forbidden modules or an empty hash if none are currently forbidden. This
       is convenient if you are testing and/or debugging this module.

ONE LINER

       A neat trick for using this module from the command line was mentioned to me by NUFFIN and by Jerrad Pierce:

	 perl -MTest::Without::Module=Some::Module -w -Iblib/lib t/SomeModule.t

       That way, you can easily see how your module or test file behaves when a certain module is unavailable.

BUGS

       o   There is no lexical scoping

CREDITS

       Much improvement must be thanked to Aristotle from PerlMonks, he pointed me to a much less convoluted way to fake a module at
       <http://www.perlmonks.org/index.pl?node=192635>.

       I also discussed with him an even more elegant way of overriding CORE::GLOBAL::require, but the parsing of the overridden subroutine didn't
       work out the way I wanted it - CORE::require didn't recognize barewords as such anymore.

       NUFFIN and Jerrad Pierce pointed out the convenient use from the command line to interactively watch the behaviour of the test suite and
       module in absence of a module.

AUTHOR

       Copyright (c) 2003-2009 Max Maischein, <corion@cpan.org>

LICENSE

       This module is released under the same terms as Perl itself.

SEE ALSO

       Devel::Hide, Acme::Intraweb, PAR, perlfunc

perl v5.10.0							    2009-01-18						Test::Without::Module(3pm)

Check Out this Related Man Page

Perl::Critic::Policy::Modules::ProhibitConditionalUseStaUsernContributed Perl Perl::Critic::Policy::Modules::ProhibitConditionalUseStatements(3pm)

NAME

       Perl::Critic::Policy::Modules::ProhibitConditionalUseStatements - Avoid putting conditional logic around compile-time includes.

AFFILIATION

       This Policy is part of the core Perl::Critic distribution.

DESCRIPTION

       Modules included via "use" are loaded at compile-time.  Placing conditional logic around the "use" statement has no effect on whether the
       module will be loaded.  Doing so can also serve to confuse the reader as to the author's original intent.

       If you need to conditionally load a module you should be using "require" instead.

       This policy will catch the following forms of conditional "use" statements:

	   # if-elsif-else
	   if ($a == 1) { use Module; }
	   if ($a == 1) { } elsif ($a == 2) { use Module; }
	   if ($a == 1) { } else { use Module; }

	   # for/foreach
	   for (1..$a) { use Module; }
	   foreach (@a) { use Module; }

	   # while
	   while ($a == 1) { use Module; }

	   # unless
	   unless ($a == 1) { use Module; }

	   # until
	   until ($a == 1) { use Module; }

	   # do-condition
	   do { use Module; } if $a == 1;
	   do { use Module; } while $a == 1;
	   do { use Module; } unless $a == 1;
	   do { use Module; } until $a == 1;

	   # operator-do
	   $a == 1 || do { use Module; };
	   $a == 1 && do { use Module; };
	   $a == 1 or do { use Module; };
	   $a == 1 and do { use Module; };

	   # non-string eval
	   eval { use Module; };

       Including a module via "use" in bare blocks, standalone do blocks, or string evals is allowed.

	   # bare block
	   { use Module; }

	   # do
	   do { use Module; }

	   # string eval
	   eval "use Module";

CONFIGURATION

       This Policy is not configurable except for the standard options.

AUTHOR

       Peter Guzis <pguzis@cpan.org>

COPYRIGHT

       Copyright (c) 2010-2011 Peter Guzis.  All rights reserved.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.  The full text of this license
       can be found in the LICENSE file included with this module.

perl v5.14.2							    2012-06-07Perl::Critic::Policy::Modules::ProhibitConditionalUseStatements(3pm)

Linux and UNIX Man Pages

test::without::module(3pm) [debian man page]

Check Out this Related Man Page