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 sub set_row {
  38     my $self = shift;
  39
  40     {
  41         local $" = "', '";
  42         push @mock::calls, __PACKAGE__ . "::set_row( '@_' )";
  43     }
  44 }
  45
  46 sub set_column {
  47     my $self = shift;
  48
  49     {
  50         local $" = "', '";
  51         push @mock::calls, __PACKAGE__ . "::set_column( '@_' )";
  52     }
  53 }
  54
  55 1;
  56 __END__