view release on metacpan or  search on metacpan

lib/PDF/ReportWriter/Report.pm  view on Meta::CPAN

        my($self, $cfg, $file) = @_;
        
        # $cfg is a hash:
        # $cfg = {
        #               data            ... the 'data' part of the PDF::ReportWriter object
        #               definition      ... the top-level part of the PDF::ReportWriter object ( minus data )
        
        $file ||= $self->file();
        
        my $xml = XML::Simple->new(
                AttrIndent => 1,
                ForceArray => 1,
                KeepRoot   => 1,
                NoAttr     => 1,
                NoSort     => 1,
                RootName   => 'report',
                XMLDecl    => 1,
        );
        
        my $xml_stream = $xml->XMLout($cfg);
        my $ok = 0;