#!/usr/bin/perl
package TestUtil;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(write_log);

print "loading module TestUtil\n";

#our $LOG if not $LOG and print "LOG did not exist.\n";
our $LOG;

open $LOG, '>', 'test.log' or die;
print "\$LOG = $LOG\n";

sub write_log {
        my $string = shift;
        print $LOG "$string\n";
}

1;