The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Spreadsheet::WriteExcelXML;

use strict;

use vars qw/ @ISA /;
@ISA = qw( Spreadsheet::WriteExcel );

use Spreadsheet::WriteExcel;

use mock;

sub new {
    my $self = bless {
    }, shift;

    {
        local $" = "', '";
        push @mock::calls, ref($self) . "::new( '@_' )";
    }

    return $self;
}

1;
__END__