File Coverage

blib/lib/Perl6/Pod/FormattingCode/C.pm

Criterion	Covered	Total	%
statement	12	36	33.3
branch	0	2	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	50	32.0

package Perl6::Pod::FormattingCode::C;

=pod

=head1 NAME

Perl6::Pod::FormattingCode::C - Contained text is code

=head1 SYNOPSIS

        =para
        Use C<=config> for this or C<< $i > 4 >>;

=head1 DESCRIPTION

The CE> formatting code specifies that the contained text is code; that is, something that might appear in a program or specification. Such content would typically be rendered in a fixed-width font (preferably a different font from that used for the CE> or CE>  formatting codes) or with  ...  tags. The contents of a CE> code are space-preserved  and verbatim. The CE> code is the inline equivalent of the =code  block.

To include other formatting codes in a CE> code, you can lexically reconfigure  it:

    =begin para
    =config C<> :allow
    Perl 6 makes extensive use of the C> and C>
    characters, for example, in a hash look-up:
    C<%hashI>keyI>>
    =end para

To enable entities in every C...E> put a =config CE>> :allowCEE> at the top of the document

Exported :

=over

=item *  docbook



L

=item * html



L

=back

=cut
use Perl6::Pod::FormattingCode;
use base 'Perl6::Pod::FormattingCode';
use strict;
use warnings;
our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    #parse content
    my $attr = $self->get_attr;
    if  ( my $allow =  $attr->{allow} ) {
    my $fc = Perl6::Pod::Utl::parse_para($self->{content}, allow=>$allow);
    $self->{content} = $fc;
    } else { $self->{content} = [$self->{content}]}
    $self
}

sub to_xhtml {
    my ($self, $to ) = @_;
    $to->w->raw('');
    $to->visit_childs($self);
    $to->w->raw('');
}

sub to_docbook {
    my $self   = shift;
    my $to = shift;
    my $w  = $to->w;
    $w->raw(" ");
    $to->visit_childs($self);
    $w->raw('');
}

sub to_latex {
    my $self   = shift;
    my $to = shift;
    my $w  = $to->w;
    $w->raw('\verb=');
    $to->visit_childs($self);
    $w->raw('=');

}

1;
__END__