File Coverage

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

Criterion	Covered	Total	%
statement	12	22	54.5
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	30	53.3

#===============================================================================
#
#  DESCRIPTION: =input block
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================

package Perl6::Pod::Block::input;

=pod

=head1 NAME

Perl6::Pod::Block::input - handle =input 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 =input block is used to specify pre-formatted keyboard input, which should be rendered without rejustification or squeezing of whitespace.

Export:

* to docbook as B element (L)
* to html (L):



=cut

use warnings;
use strict;
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__