File Coverage

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

Criterion	Covered	Total	%
statement	15	25	60.0
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	34	58.8

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

=pod

=head1 NAME

Perl6::Pod::Block::output - handle =output block

=head1 SYNOPSIS

 =begin output
    Name:    Baracus, B.A.
    Rank:    Sgt
    Serial:  1PTDF007

    Do you want additional personnel details? K

    Height:  180cm/5'11"
    Weight:  104kg/230lb
    Age:     49

    Print? K
 =end output

=head1 DESCRIPTION

The =output block is used to specify pre-formatted terminal or file output which should also be rendered without rejustification or whitespace-squeezing.

Export:

* to docbook as B element (http://www.docbook.org/tdg/en/html/screen.html)
* to html(http://www.w3.org/TR/html401/struct/text.html#edef-SAMP):



=cut

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

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

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

1;

__END__