#===============================================================================
#
# DESCRIPTION:
#
# AUTHOR: Aliaksandr P. Zahatski, <zag@cpan.org>
#===============================================================================
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<y>
Height: 180cm/5'11"
Weight: 104kg/230lb
Age: 49
Print? K<n>
=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<screen> element (http://www.docbook.org/tdg/en/html/screen.html)
* to html(http://www.w3.org/TR/html401/struct/text.html#edef-SAMP):
<pre><samp>
</samp></pre>
=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('<pre><samp>');
$self->{content} =
&Perl6::Pod::Utl::parse_para( $self->childs->[0] );
$to->visit_childs($self);
$to->w->raw('</samp></pre>');
}
sub to_docbook {
my ( $self, $to ) = @_;
$to->w->raw('<screen>');
$self->{content} =
Perl6::Pod::Utl::parse_para( $self->childs->[0] );
$to->visit_childs($self);
$to->w->raw('</screen>');
}
1;
__END__
=head1 SEE ALSO
L<http://zag.ru/perl6-pod/S26.html>,
Perldoc Pod to HTML converter: L<http://zag.ru/perl6-pod/>,
Perl6::Pod::Lib
=head1 AUTHOR
Zahatski Aliaksandr, <zag@cpan.org>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2015 by Zahatski Aliaksandr
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
=cut