r1345 - in packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current: . lib lib/Spreadsheet lib/Spreadsheet/ParseExcel

[Gunnar Wolf]

Author: gwolf
Date: 2005-09-06 21:16:14 +0000 (Tue, 06 Sep 2005)
New Revision: 1345

Added:
   packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/lib/
   packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/lib/Spreadsheet/
   packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/lib/Spreadsheet/ParseExcel/
   packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/lib/Spreadsheet/ParseExcel/Simple.pm
Removed:
   packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/Simple.pm
Log:
To prepare to load
/tmp/tmp.IakkVb/libspreadsheet-parseexcel-simple-perl-1.03 into
packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/curren
t, perform 1 rename.

*
  packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/curr
  ent/lib/Spreadsheet/ParseExcel/Simple.pm: Renamed from
  packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/curr
  ent/Simple.pm.


Deleted: packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/Simple.pm
===================================================================
--- packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/Simple.pm	2005-09-06 21:12:56 UTC (rev 1344)
+++ packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/Simple.pm	2005-09-06 21:16:14 UTC (rev 1345)
@@ -1,118 +0,0 @@
-package Spreadsheet::ParseExcel::Simple;
-
-use strict;
-use Spreadsheet::ParseExcel;
-use vars qw/$VERSION/;
-$VERSION = '1.02';
-
-=head1 NAME
-
-Spreadsheet::ParseExcel::Simple - A simple interface to Excel data
-
-=head1 SYNOPSIS
-
-  my $xls = Spreadsheet::ParseExcel::Simple->read('spreadsheet.xls');
-  foreach my $sheet ($xls->sheets) {
-     while ($sheet->has_data) {  
-         my @data = $sheet->next_row;
-     }
-  }
-
-=head1 DESCRIPTION
-
-This provides an abstraction to the Spreadsheet::ParseExcel module for
-simple reading of values.
-
-You simply loop over the sheets, and fetch rows to arrays.
-
-For anything more complex, you probably want to use
-Spreadsheet::ParseExcel directly.
-
-=head1 METHODS
-
-=head2 read
-
-  my $xls = Spreadsheet::ParseExcel::Simple->read('spreadsheet.xls');
-
-This opens the spreadsheet specified for you. Returns undef if we cannot
-read the book.
-
-=head2 sheets
-
-  @sheets = $xls->sheets;
-
-Each spreadsheet can contain one or more worksheets. This fetches them
-all back. You can then iterate over them, or jump straight to the one
-you wish to play with.
-
-=head2 has_data
-
-  if ($sheet->has_data) { ... }
-
-This lets us know if there are more rows in this sheet that we haven't
-read yet. This allows us to differentiate between an empty row, and 
-the end of the sheet.
-
-=head2 next_row
-
-  my @data = $sheet->next_row;
-
-Fetch the next row of data back.
-
-=head1 AUTHOR
-
-Tony Bowden
-
-=head1 BUGS and QUERIES
-
-Please direct all correspondence regarding this module to:
-  bug-Spreadsheet-ParseExcel-Simple at rt.cpan.org
-
-=head1 COPYRIGHT and LICENSE
-
-Copyright (C) 2001-2004 Tony Bowden. All rights reserved.
-
-This module is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<Spreadsheet::ParseExcel>. 
-
-=cut
-
-sub read {
-  my $class = shift;
-  my $book = Spreadsheet::ParseExcel->new->Parse(shift) or return;
-  bless { book => $book }, $class;
-}
-
-sub book { shift->{book} }
-
-sub sheets {
-  map Spreadsheet::ParseExcel::Simple::_Sheet->new($_), 
-   @{shift->{book}->{Worksheet}};
-}
-
-package Spreadsheet::ParseExcel::Simple::_Sheet;
-
-sub new {
-  my $class = shift;
-  my $sheet = shift;
-  bless {
-    sheet => $sheet,
-    row   => $sheet->{MinRow} || 0,
-  }, $class;
-}
-
-sub has_data { 
-  my $self = shift;
-  defined $self->{sheet}->{MaxRow} and ($self->{row} <= $self->{sheet}->{MaxRow});
-}
-
-sub next_row {
-  map { $_ ? $_->Value : "" } @{$_[0]->{sheet}->{Cells}[$_[0]->{row}++]};
-}
-
-1;
-

Copied: packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/lib/Spreadsheet/ParseExcel/Simple.pm (from rev 1344, packages/libspreadsheet-parseexcel-simple-perl/branches/upstream/current/Simple.pm)