- add new option to worksheet - hide_gridlines

[p5sagit/Excel-Template.git] / t / Spreadsheet / WriteExcel / Worksheet.pm

diff --git a/t/Spreadsheet/WriteExcel/Worksheet.pm b/t/Spreadsheet/WriteExcel/Worksheet.pm
index 450f401..00985da 100644 (file)
--- a/t/Spreadsheet/WriteExcel/Worksheet.pm
+++ b/t/Spreadsheet/WriteExcel/Worksheet.pm
@@ -16,85 +16,19 @@ sub new {
     return $self;
 }
 
-sub write_string {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::write_string( '@_' )";
-    }
-}
-
-sub write_number {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::write_number( '@_' )";
-    }
-}
-
-sub write_blank {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::write_blank( '@_' )";
-    }
-}
-
-sub write_url {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::write_url( '@_' )";
-    }
-}
-
-sub write_formula {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::write_formula( '@_' )";
-    }
-}
-
-sub write {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::write( '@_' )";
-    }
-}
-
-sub set_row {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::set_row( '@_' )";
-    }
-}
-
-sub set_column {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::set_column( '@_' )";
-    }
-}
-
-sub keep_leading_zeros {
-    my $self = shift;
-
-    {
-        local $" = "', '";
-        push @mock::calls, __PACKAGE__ . "::keep_leading_zeros( '@_' )";
-    }
+my @funcs = qw(
+    write_string write_number write_blank write_url write_formula write_date_time write
+    set_row set_column keep_leading_zeros insert_bitmap freeze_panes
+    set_landscape set_portrait merge_range hide_gridlines
+);
+
+foreach my $func ( @funcs ) {
+    no strict 'refs';
+    *$func = sub {
+        my $self = shift;
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::${func}( '@_' )";
+    };
 }
 
 1;