I have run the following program and it give an error message.
Netheless, the table has been created.
#utf8
our $VERSION = '1.0';
use 5.12.3;
use strict ;
use warnings ;
use Carp ;
use Data::Dumper;
use File::Spec;
my $file="./toto.odt" ;
use OpenOffice::OODoc;
my $doc = ooDocument
(
file=>"./toto.odt",
create => 'text',
member => 'content'
);
croak 'ça ne marche pas !' unless $doc;
say "loup y est-tu ?" ;
my $paragraphe = $doc->getParagraph(0);
$doc->removeElement($paragraphe);
my $feuille = $doc->appendTable('MaTable', 15, 12);
$doc->cellValue($feuille, 'A1', 'Valeur A1');
$doc->cellValue($feuille, 'L15', 'Valeur L15');
say "loup y est-tu ?!" ;
$doc->save;
say $0 ;
I got the following result :
Show quoted text
>perl -w oodoctst.pl
Use of uninitialized value in lc at
C:/Perl/site/lib/OpenOffice/OODoc/File.pm line 378.
loup y est-tu ?
loup y est-tu ?!
oodoctst.pl
Show quoted text>Exit code: 0