r13919@rob-kinyons-powerbook58: rob | 2006-06-02 10:30:39 -0400

[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..2f6428a 100644 (file)
--- a/t/Spreadsheet/WriteExcel/Worksheet.pm
+++ b/t/Spreadsheet/WriteExcel/Worksheet.pm
@@ -97,5 +97,14 @@ sub keep_leading_zeros {
     }
 }
 
+sub insert_image {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::insert_image( '@_' )";
+    }
+}
+
 1;
 __END__