File Coverage

blib/lib/WriteAt/To/DocBook.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

#===============================================================================
#
#  DESCRIPTION:  DocBook
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package WriteAt::To::DocBook;
use strict;
use warnings;
use Perl6::Pod::Utl;
use WriteAt::To;
use base ( 'Perl6::Pod::To::DocBook', 'WriteAt::To' );
use utf8;
our $VERSION = '0.01';

sub start_write {
    my $self = shift;
    my %tags = @_;
    my $w    = $self->writer;
    my $dtd  = '';
    for (
        '/usr/local/share/xml/docbook/4.5/docbookx.dtd',
        '/usr/share/xml/docbook/schema/dtd/4.5/docbookx.dtd'
      )
    {
        if ( -e $_ ) {
            $dtd = $_;
            last;
        }
    }
    die "Can't find docbookx.dtd file" unless $dtd;
    my $lang = $self->{lang} || 'en';
    $w->raw(<<"H");


        "file://${dtd}" []>

H
    $w->raw('');
    for (qw/ TITLE SUBTITLE AUTHOR CHANGES DESCRIPTION /) {
      my $n = $tags{$_} || die "Cant find block =$_";

       #make Document element
       $self->visit($n);
    }
    $w->raw('');
}

sub block_DESCRIPTION {
    my ( $self, $n ) = @_;
    my $w = $self->w;
    $w->raw('');
    $self->visit_childs($n);
    $w->raw('');
}

sub block_TITLE {
    my ( $self, $n ) = @_;
    my $w = $self->w;
    $w->raw(''); </td>
</tr>

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

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

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

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

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

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

sub block_SUBTITLE {
    my ( $self, $n ) = @_;
    my $w = $self->w;
    $w->raw('');
    $self->visit_childs($n);
    $w->raw('');
}

no strict;
# alias for CHAPTER
sub block_ГЛАВА {
    $self = shift;
    return $self->block_CHAPTER(@_)
}
use strict;


sub block_CHAPTER {
    my ( $self, $node ) = @_;
    #close any section
    $self->switch_head_level(0, 'no_start_next');
    $self->w->raw('') if $self->{IN_CHAPTER};
    $self->w->raw('') &&  $self->{IN_CHAPTER}++;
    $self->w->raw('')->print($node->childs->[0]->childs->[0]) </td>
</tr>

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

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

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

sub end_write {
    my $self = shift;
    $self->SUPER::end_write();
    $self->w->raw('') if $self->{IN_CHAPTER};
    $self->w->raw('');
}
1;