File Coverage

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

Criterion	Covered	Total	%
statement	21	38	55.2
branch	0	4	0.0
condition			n/a
subroutine	7	10	70.0
pod	2	3	66.6
total	30	55	54.5

package Perl6::Pod::Block::code;

=pod

=head1 NAME

Perl6::Pod::Block::code - Verbatim pre-formatted sample source code

=head1 SYNOPSIS

     =begin code
      print "Ok";
     =end code

=head1 DESCRIPTION

Code blocks are used to specify pre-formatted text (typically source code), which should be rendered without rejustification, without whitespace-squeezing, and without recognizing any inline formatting codes. Code blocks also have an implicit nesting associated with them. Typically these blocks are used to show examples of code, mark-up, or other textual specifications, and are rendered using a fixed-width font.

A code block may be implicitly specified as one or more lines of text, each of which starts with a whitespace character. The block is terminated by a blank line. For example:

    This ordinary paragraph introduces a code block:

            $this = 1 * code('block');
            $which.is_specified(:by);


Implicit code blocks may only be used within =pod, =item, =nested, =END, or semantic blocks.

=cut

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

=head2 to_xhtml

    =code
    test code

Render to:


        test code

=cut

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

=head2 to_docbook

    =code
    test code

Render to:


     ]]>

=cut

sub to_docbook {
    my ( $self, $to ) = @_;
    $to->w->raw(
        '
        $to->w->raw($_) for @{$self->childs};

    $to->w->raw(']]>');
}

sub to_latex {
    my ( $self, $to ) = @_;
    if ( my $allow = $self->get_attr->{allow} ) {
        $self->{content} =
          Perl6::Pod::Utl::parse_para( $self->childs->[0], allow => $allow );
    }
    $to->w->say('\begin{verbatim}');
    $to->visit_childs($self);
    $to->w->raw('\end{verbatim}');
}

1;
__END__