File Coverage

lib/Pod/PseudoPod/DOM/App/ToLaTeX.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	41	48.7

package Pod::PseudoPod::DOM::App::ToLaTeX;
# ABSTRACT: helper functions for bin/ppdom2latex

use strict;
use warnings;
use autodie;

use Pod::PseudoPod::DOM;
use Pod::PseudoPod::DOM::App qw( open_fh );

sub process_files_with_output
{
    for my $file ( @_ )
    {
        my ($source, $output) = @$file;

        my $parser  = Pod::PseudoPod::DOM->new(
            formatter_role => 'Pod::PseudoPod::DOM::Role::LaTeX',
            filename       => $output,
        );

        my $fh = open_fh( $output, '>' );
        $parser->output_fh($fh);

        $parser->no_errata_section(1); # don't put errors in doc output
        $parser->complain_stderr(1);   # output errors on STDERR instead

        die "Unable to open file\n" unless -e $source;
        $parser->parse_file( open_fh( $source ) );
        my $doc = $parser->get_document;
        print {$fh} $doc->emit;

        while (my ($name, $contents) = each %{ $doc->tables })
        {
            my $fh = open_fh( $name, '>' );
            print {$fh} $contents;
        }
    }
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Pod::PseudoPod::DOM::App::ToLaTeX - helper functions for bin/ppdom2latex

=head1 VERSION

version 1.20210620.2004

=head1 AUTHOR

chromatic <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2021 by chromatic.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut