Only 21 tests, skipping or not.
[p5sagit/p5-mst-13.2.git] / lib / Test / Utils.pm
CommitLineData
d020a79a 1package Test::Utils;
2
3use 5.004;
4
5use strict;
6require Exporter;
7use 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.
17sub my_print (*@) {
18 my($fh, @args) = @_;
19
20 local $\;
21 print $fh @args;
22}
23
24sub print { die "DON'T USE PRINT! Use _print instead" }
25
261;