Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | package Test::Builder::Tester::Color; |
2 | ||
3 | use strict; | |
4 | ||
5 | require Test::Builder::Tester; | |
6 | ||
7 | =head1 NAME | |
8 | ||
9 | Test::Builder::Tester::Color - turn on colour in Test::Builder::Tester | |
10 | ||
11 | =head1 SYNOPSIS | |
12 | ||
13 | When running a test script | |
14 | ||
15 | perl -MTest::Builder::Tester::Color test.t | |
16 | ||
17 | =head1 DESCRIPTION | |
18 | ||
19 | Importing this module causes the subroutine color in Test::Builder::Tester | |
20 | to be called with a true value causing colour highlighting to be turned | |
21 | on in debug output. | |
22 | ||
23 | The sole purpose of this module is to enable colour highlighting | |
24 | from the command line. | |
25 | ||
26 | =cut | |
27 | ||
28 | sub import | |
29 | { | |
30 | Test::Builder::Tester::color(1); | |
31 | } | |
32 | ||
33 | =head1 AUTHOR | |
34 | ||
35 | Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002. | |
36 | ||
37 | This program is free software; you can redistribute it | |
38 | and/or modify it under the same terms as Perl itself. | |
39 | ||
40 | =head1 BUGS | |
41 | ||
42 | This module will have no effect unless Term::ANSIColor is installed. | |
43 | ||
44 | =head1 SEE ALSO | |
45 | ||
46 | L<Test::Builder::Tester>, L<Term::ANSIColor> | |
47 | ||
48 | =cut | |
49 | ||
50 | 1; |