Improved tests and documentation. Fixed a few bugs in register()

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

package Spreadsheet::WriteExcel;

use strict;

use mock;
use Spreadsheet::WriteExcel::Worksheet;

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

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

    $self->{file} = shift;

    return $self;
}

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

    if ( ref $self->{file} ) {
        my $fh = $self->{file};
        print $fh join "\n", @mock::calls, ''; 
    }
}

sub add_worksheet {
    my $self = shift;
    {
        local $" = "', '";
        push @mock::calls, ref($self) . "::add_worksheet( '@_' )";
    }
    return Spreadsheet::WriteExcel::Worksheet->new;
}

my $format_num = 1;
sub add_format {
    my $self = shift;
    my %x = @_;
    my @x = map { $_ => $x{$_} } sort keys %x;
    {
        local $" = "', '";
        push @mock::calls, ref($self) . "::add_format( '@x' )";
    }
    return $format_num++;
}

1;
__END__