File Coverage

blib/lib/Spreadsheet/WriteExcelXML.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	24	95.8

package Spreadsheet::WriteExcelXML;

###############################################################################
#
# WriteExcelXML.
#
# Spreadsheet::WriteExcelXML - Create an Excel file in XML format.
#
# Copyright 2000-2010, John McNamara, [e-mail]
#
# Documentation after __END__
#

use Exporter;

use strict;
use Spreadsheet::WriteExcelXML::Workbook;



use vars qw($VERSION @ISA);
@ISA = qw(Spreadsheet::WriteExcelXML::Workbook Exporter);

$VERSION = '0.15'; # A Bookshop Idyll.



###############################################################################
#
# new()
#
sub new {

    my $class = shift;
    my $self  = Spreadsheet::WriteExcelXML::Workbook->new(@_);

    # Check for file creation failures before re-blessing
    bless  $self, $class if defined $self;

    return $self;
}


1;


__END__