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 my @funcs = qw(
  20     write_string write_number write_blank write_url write_formula write
  21     set_row set_column keep_leading_zeros insert_bitmap freeze_panes
  22     set_landscape set_portrait
  23 );
  24
  25 foreach my $func ( @funcs ) {
  26     no strict 'refs';
  27     *$func = sub {
  28         my $self = shift;
  29         local $" = "', '";
  30         push @mock::calls, __PACKAGE__ . "::${func}( '@_' )";
  31     };
  32 }
  33
  34 1;
  35 __END__