1 ##############################################################################
2 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/tlib/Perl/Critic/TestUtilitiesWithMinimalDependencies.pm $
3 # $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
6 ##############################################################################
8 package Perl::Critic::TestUtilitiesWithMinimalDependencies;
14 # do not use Readonly-- this module is used at build-time.
18 our $VERSION = '1.088';
20 get_skip_all_tests_tap
23 #-----------------------------------------------------------------------------
25 sub get_skip_all_tests_tap {
26 return '1..0 # Skip ';
33 #-----------------------------------------------------------------------------
41 Perl::Critic::TestUtilitiesWithMinimalDependencies - Testing functions that only depend upon L<strict>, L<warnings>, and L<Exporter>.
45 use Perl::Critic::TestUtilitiesWithMinimalDependencies qw{
46 get_skip_all_tests_tap
51 if ($should_not_run) {
52 plan skip_all => 'Hey! I shouldn't be run!';
57 This module is used by L<Perl::Critic> only for self-testing. It
58 differs from L<Perl::Critic::TestUtils> in that it only depends upon
59 L<strict>, L<warnings>, and L<Exporter>. This is important for tests
60 that need to hide the presence of other modules before starting.
62 =head1 IMPORTABLE SUBROUTINES
66 =item C< get_skip_all_tests_tap() >
68 Returns a string representing the TAP (Test Anything Protocol) output
69 for skipping an entire file. This is useful if you don't want to load
78 Elliot Shank <perl@cpan.org>
82 Copyright (c) 2007-2008 Elliot Shank. All rights reserved.
84 This program is free software; you can redistribute it and/or modify
85 it under the same terms as Perl itself. The full text of this license
86 can be found in the LICENSE file included with this module.
92 # cperl-indent-level: 4
94 # indent-tabs-mode: nil
95 # c-indentation-style: bsd
97 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :