t/MockStream.pm

   1
   2 package MockStream;
   3 use Test::Depends qw(IO::String);
   4 use IO::String;
   5
   6 use base qw(Exporter);
   7 BEGIN { our @EXPORT = qw(stream) };
   8
   9 sub stream($) {
  10         my $string = shift;
  11         IO::String->new(\$string);
  12 }
  13
  14 1;