package SQL::Translator::Parser::Excel;
# -------------------------------------------------------------------
-# $Id: Excel.pm,v 1.11 2003-11-05 22:26:24 kycl4rk Exp $
+# $Id$
# -------------------------------------------------------------------
-# Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>,
-# darren chamberlain <darren@cpan.org>,
-# Chris Mungall <cjm@fruitfly.org>,
-# Mike Mellilo <mmelillo@users.sourceforge.net>
+# Copyright (C) 2002-2009 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
=cut
use strict;
-use vars qw($DEBUG $VERSION @EXPORT_OK);
+use vars qw($DEBUG @EXPORT_OK);
$DEBUG = 0 unless defined $DEBUG;
-$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/;
use Spreadsheet::ParseExcel;
use Exporter;
}
for my $field ( keys %field_info ) {
- my $size = $field_info{ $field }{'size'} || 0;
+ my $size = $field_info{ $field }{'size'} || [ 1 ];
my $data_type =
$field_info{ $field }{'char'} ? 'char' :
$field_info{ $field }{'float'} ? 'float' :