package Report::Writer::Test;

use vars qw/@ISA/;

@ISA=qw/Report::Writer/;

$SheetName = "Test";
@HEADER = qw/I AM TESTING/;
%Fields = (
   I  => sub { return uc $_[0]->{firscol} },
   AM => 'secondcol',
   TESTING => 'PLACE HOLDER'
);