1 package Spreadsheet::WriteExcel;
6 use Spreadsheet::WriteExcel::Worksheet;
14 push @mock::calls, ref($self) . "::new( '@_' )";
17 $self->{file} = shift;
26 push @mock::calls, ref($self) . "::close( '@_' )";
29 if ( ref $self->{file} ) {
30 my $fh = $self->{file};
31 print $fh join "\n", @mock::calls, '';
39 push @mock::calls, ref($self) . "::add_worksheet( '@_' )";
41 return Spreadsheet::WriteExcel::Worksheet->new;
48 my @x = map { $_ => $x{$_} } sort keys %x;
51 push @mock::calls, ref($self) . "::add_format( '@x' )";