File Coverage

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

Criterion	Covered	Total	%
statement	15	44	34.0
branch	0	12	0.0
condition	0	6	0.0
subroutine	5	10	50.0
pod	1	5	20.0
total	21	77	27.2

package Perl6::Pod::To::DocBook;

=head1 NAME

Perl6::Pod::To::DocBook - DocBook formater

=head1 SYNOPSIS

    my $p = new Perl6::Pod::To::DocBook::
                header => 0, doctype => 'chapter';


=head1 DESCRIPTION

Process pod to docbook

Sample:

        =begin pod
        =NAME Test chapter
        =para This is a test para
        =end pod

Run converter:

        pod6docbook test.pod > test.xml

Result xml:



          Test chapter </td>
</tr>

<tr>
<td  class="h" >
<a name="33">33</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">
          This is a test para




=cut

use strict;
use warnings;
use Perl6::Pod::To;
use base 'Perl6::Pod::To';
use Perl6::Pod::Utl;
our $VERSION = '0.01';

sub new {
    my $class =  shift;
    my $self = $class->SUPER::new(@_);
#    $self->{doctype} ||= 'chapter';
    return $self;
}
sub block_NAME {
    my $self = shift;
    my $el   = shift;
    my $w  = $self->w;
    $w->raw(''); </td>
</tr>

<tr>
<td  class="h" >
<a name="59">59</a>
</td>

<td  class="c0" >
 <a href="#60"> 
0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $el->{content} = Perl6::Pod::Utl::parse_para($el->childs->[0]->{content}->[0]); </td>
</tr>

<tr>
<td  class="h" >
<a name="60">60</a>
</td>

<td  class="c0" >
 <a href="#61"> 
0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->visit_childs($el); </td>
</tr>

<tr>
<td  class="h" >
<a name="61">61</a>
</td>

<td  class="c0" >
 <a href="#65"> 
0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $w->raw('');
}

sub start_write {
    my $self = shift;
    my $w    = $self->writer;
    if ( $self->{header} ) {
        $w->say(
q@@);
    }
    $self->w->raw_print( '<' . $self->{doctype} . '>' ) if $self->{doctype};
}

sub switch_head_level {
    my $self = shift;
    my $level = shift;
    my $no_start_next_flag = shift;
    my $w = $self->w;
    my $prev = $self->SUPER::switch_head_level($level);
    if ($level && $level == $prev ) {
        $w->raw('')
    } elsif ( $prev < $level  ) {
        $w->raw('') for ( 1..$level-$prev);
    } else #$prev > $level
     {
        my $count_to_close = $level * 1 + $prev-$level;
        $w->raw('') for ( 1..$count_to_close);
        $w->raw('') unless $no_start_next_flag or !$level;

     }
}

sub end_write {
    my $self = shift;
    $self->switch_head_level(0,'no_start_next');
    $self->w->raw_print( '{doctype} . '>' ) if $self->{doctype};
}



1;
__END__