[p5sagit/Excel-Template.git] / t / Spreadsheet / WriteExcelXML.pm

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__
Commit	Line	Data
6dd4c89d	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__