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_string {
  20     my $self = shift;
  21
  22     {
  23         local $" = "', '";
  24         push @mock::calls, __PACKAGE__ . "::write_string( '@_' )";
  25     }
  26 }
  27
  28 sub write_number {
  29     my $self = shift;
  30
  31     {
  32         local $" = "', '";
  33         push @mock::calls, __PACKAGE__ . "::write_number( '@_' )";
  34     }
  35 }
  36
  37 sub write_blank {
  38     my $self = shift;
  39
  40     {
  41         local $" = "', '";
  42         push @mock::calls, __PACKAGE__ . "::write_blank( '@_' )";
  43     }
  44 }
  45
  46 sub write_url {
  47     my $self = shift;
  48
  49     {
  50         local $" = "', '";
  51         push @mock::calls, __PACKAGE__ . "::write_url( '@_' )";
  52     }
  53 }
  54
  55 sub write_formula {
  56     my $self = shift;
  57
  58     {
  59         local $" = "', '";
  60         push @mock::calls, __PACKAGE__ . "::write_formula( '@_' )";
  61     }
  62 }
  63
  64 sub write {
  65     my $self = shift;
  66
  67     {
  68         local $" = "', '";
  69         push @mock::calls, __PACKAGE__ . "::write( '@_' )";
  70     }
  71 }
  72
  73 sub set_row {
  74     my $self = shift;
  75
  76     {
  77         local $" = "', '";
  78         push @mock::calls, __PACKAGE__ . "::set_row( '@_' )";
  79     }
  80 }
  81
  82 sub set_column {
  83     my $self = shift;
  84
  85     {
  86         local $" = "', '";
  87         push @mock::calls, __PACKAGE__ . "::set_column( '@_' )";
  88     }
  89 }
  90
  91 1;
  92 __END__