7 =head1 NAME $RCSfile: testspreadsheet.pl,v $
9 Test the SpreadSheet libary
11 This script tests various functions of the SpreadSheet libary
19 Andrew DeFaria <Andrew@ClearSCM.com>
27 Mon Nov 12 16:50:44 PST 2012
31 $Date: 2012/11/21 02:53:28 $
37 Usage: testclearquest.pl [-u|sage] [-v|erbose] [-d|ebug]
38 -filename <spreadsheet file>
41 -usa|ge: Displays usage
43 -de|bug: Output debug messages
45 -filename: Spreadsheet file
52 use lib "$FindBin::Bin/../lib";
66 display "Row: $row"; $row++;
69 my $value = $row{$_} || '';
85 usage => sub { Usage },
86 verbose => sub { set_verbose },
87 debug => sub { set_debug },
91 Usage "Must specify -filename <filename>" unless $opts{filename};
93 my $spreadSheet = SpreadSheet->new ($opts{filename});
95 displayData ($spreadSheet->getSheet);