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     return 1 if $^C;
  21
  22     local $\;
  23     print $fh @args;
  24 }
  25
  26 sub print { die "DON'T USE PRINT!  Use _print instead" }
  27
  28 1;