File Coverage

blib/lib/Business/ReportWriter/OOCalc.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Business::ReportWriter::OOCalc;

use strict;
use POSIX qw(setlocale LC_NUMERIC);
use utf8;
use OpenOffice::OOCBuilder;

use base 'Business::ReportWriter';

sub begin_line {
    my ( $self, $rec ) = @_;

    $self->{rownr}++;
    $self->{fieldnr} = 0;
}

sub out_field {
    my ( $self, $text, $field ) = @_;

    $self->{fieldnr}++;
    $self->out_text($text);
}

sub begin_list {
    my ($self) = @_;

    my $sheet = OpenOffice::OOCBuilder->new();
    $self->{sheet} = $sheet;
}

sub print_doc {
    my ( $self, $filename ) = @_;

    my $sheet = $self->{sheet};
    if ($filename) {
        $sheet->generate($filename);
    }
}

sub out_text {
    my ( $self, $text ) = @_;

    my $sheet = $self->{sheet};
    $sheet->goto_xy( $self->{fieldnr}, $self->{rownr} );
    utf8::decode($text);
    $sheet->set_data($text);
    print "$self->{rownr} $self->{fieldnr}: $text\n";
}

1;
__END__