File Coverage

blib/lib/File/Extract/Excel.pm

Criterion	Covered	Total	%
statement	10	27	37.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	2	2	100.0
total	16	43	37.2

# $Id: /mirror/perl/File-Extract/trunk/lib/File/Extract/Excel.pm 4210 2007-10-27T13:43:07.499967Z daisuke  $
#
# Copyright (c) 2005 Daisuke Maki
# All rights reserved.

package File::Extract::Excel;
use strict;
use base qw(File::Extract::Base);
use Spreadsheet::ParseExcel;

sub mime_type { 'application/excel' }
sub extract
{
    my $self = shift;
    my $file = shift;

    my $book  = Spreadsheet::ParseExcel::Workbook->Parse($file);
    return unless $book;

    my $text = '';
    foreach my $sheet (@{$book->{Worksheet}}) {
        last if !defined $sheet->{MaxRow};
        foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) {
            foreach my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) {
                my $cell = $sheet->{Cells}[$row][$col];
                if ($cell) {
                    $text .= $cell->Value;
                }
                $text .= " ";
            }
            $text .= "\n";
        }
        $text .= "\n\n";
    }

    return File::Extract::Result->new(
        text => eval { $self->recode($text) } || $text,
        filename => $file,
        mime_type => $self->mime_type
    );
}

1;

__END__