t/Spreadsheet/WriteExcelXML.pm

   1 package Spreadsheet::WriteExcelXML;
   2
   3 use strict;
   4
   5 use vars qw/ @ISA /;
   6 @ISA = qw( Spreadsheet::WriteExcel );
   7
   8 use Spreadsheet::WriteExcel;
   9
  10 use mock;
  11
  12 sub new {
  13     my $self = bless {
  14     }, shift;
  15
  16     {
  17         local $" = "', '";
  18         push @mock::calls, ref($self) . "::new( '@_' )";
  19     }
  20
  21     return $self;
  22 }
  23
  24 1;
  25 __END__