t/Spreadsheet/WriteExcel/Worksheet.pm

   1 package Spreadsheet::WriteExcel::Worksheet;
   2
   3 use strict;
   4
   5 use mock;
   6
   7 sub new {
   8     my $self = bless {
   9     }, shift;
  10
  11     {
  12         local $" = "', '";
  13         push @mock::calls, __PACKAGE__ . "::new( '@_' )";
  14     }
  15
  16     return $self;
  17 }
  18
  19 sub write_formula {
  20     my $self = shift;
  21
  22     {
  23         local $" = "', '";
  24         push @mock::calls, __PACKAGE__ . "::write_formula( '@_' )";
  25     }
  26 }
  27
  28 sub write {
  29     my $self = shift;
  30
  31     {
  32         local $" = "', '";
  33         push @mock::calls, __PACKAGE__ . "::write( '@_' )";
  34     }
  35 }
  36
  37 1;
  38 __END__