File Coverage

blib/lib/Perl6/Pod/Block/head.pm

Criterion	Covered	Total	%
statement	18	44	40.9
branch	0	4	0.0
condition			n/a
subroutine	6	10	60.0
pod	0	4	0.0
total	24	62	38.7

#===============================================================================
#
#  DESCRIPTION:  =head
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package Perl6::Pod::Block::head;

=pod

=head1 NAME

Perl6::Pod::Block::head - handle B<=head> - Headings

=head1 SYNOPSIS


    =head1 A Top Level Heading
      =head2 A Second Level Heading
        =head3 A third level heading
                        =head86 A "Missed it by I much!" heading

=head1 DESCRIPTION

B<=head> - Headings

Pod provides an unlimited number of levels of heading, specified by the
C<=headN> block marker.

=cut

use warnings;
use strict;
use Perl6::Pod::Block;
use base 'Perl6::Pod::Block';
use Perl6::Pod::Utl;
use Data::Dumper;
our $VERSION = '0.01';

sub level {
    my $self = shift;
    $self->{level} || 1;    #default 1 level for head
}

sub to_xhtml {
    my ( $self, $to )= @_;
    my $w  = $to->w;
    my $level = $self->level;
    $w->raw( "");
    $self->{content}->[0] = Perl6::Pod::Utl::parse_para($self->{content}->[0]);
    $to->visit_childs($self);
    $w->raw("" );
}

sub to_docbook {
    my ( $self, $to )= @_;
    my $w  = $to->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">     $self->{content}->[0] = Perl6::Pod::Utl::parse_para($self->{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">     $to->visit_childs($self); </td>
</tr>

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

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

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

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


sub to_latex {
    my ( $self, $to )= @_;
    my $w  = $to->w;
    my $level = $self->level;
    #http://en.wikibooks.org/wiki/LaTeX/Document_Structure
    my %level2latex =
    ( 1 => 'section',
      2  => 'subsection',
      3 => 'subsubsection',
      4 => 'paragraph',
      5 => 'subparagraph'
    );
    unless (exists $level2latex{$level}) {
        warn "Level $level not supported by pod6latex. Set to: 5";
        $level = 5;
    };

    $w->raw('\\'.$level2latex{$level}.'{');
    $self->{content}->[0] = Perl6::Pod::Utl::parse_para($self->{content}->[0]);
    $to->visit_childs($self);
    $w->raw("}" );
}

1;

__END__