File Coverage

blib/lib/Perl6/Pod/To/Latex.pm

Criterion	Covered	Total	%
statement	24	34	70.5
branch	0	2	0.0
condition	0	2	0.0
subroutine	8	10	80.0
pod	1	2	50.0
total	33	50	66.0

#===============================================================================
#
#  DESCRIPTION:  Export to latex
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package Perl6::Pod::To::Latex;
use strict;
use warnings;
use strict;
use warnings;
use Perl6::Pod::To::DocBook;
use base 'Perl6::Pod::To::DocBook';
use Perl6::Pod::Utl;
our $VERSION = '0.01';

sub new {
    my $class =  shift;
    my %args = @_;
    unless ( $args{writer} ) {
        use Perl6::Pod::Writer::Latex;
        $args{writer} = new Perl6::Pod::Writer::Latex(
            out => ( $args{out} || \*STDOUT ),
        );
    }
    my $self = $class->SUPER::new(%args);
    return $self;
}

sub switch_head_level {
    my $self = shift;
    my $level = shift;
    my $w = $self->w;
    my $prev = $self->Perl6::Pod::To::switch_head_level($level);
}

1;