#===============================================================================
#
#  DESCRIPTION:  Export to latex
#
#       AUTHOR:  Aliaksandr P. Zahatski, <zahatski@gmail.com>
#===============================================================================
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;

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;