Only 21 tests, skipping or not.
[p5sagit/p5-mst-13.2.git] / lib / Test / Utils.pm
1 package Test::Utils;
2
3 use 5.004;
4
5 use strict;
6 require Exporter;
7 use vars qw($VERSION @EXPORT @EXPORT_TAGS @ISA);
8
9 $VERSION = '0.02';
10
11 @ISA = qw(Exporter);
12 @EXPORT = qw( my_print print );
13                 
14
15
16 # Special print function to guard against $\ and -l munging.
17 sub my_print (*@) {
18     my($fh, @args) = @_;
19
20     local $\;
21     print $fh @args;
22 }
23
24 sub print { die "DON'T USE PRINT!  Use _print instead" }
25
26 1;