File Coverage

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

Criterion	Covered	Total	%
statement	15	27	55.5
branch	0	4	0.0
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	22	40	55.0

#===============================================================================
#
#  DESCRIPTION:  Space-preserving text
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package Perl6::Pod::FormattingCode::S;

=pod

=head1 NAME

Perl6::Pod::FormattingCode::S - Space-preserving text

=head1 SYNOPSIS

    The emergency signal is: S<
    dot dot dot   dash dash dash   dot dot dot>.

=head1 DESCRIPTION

Any text enclosed in an CE> code is formatted normally, except that
every whitespace character in itEincluding any newlineEis
preserved. These characters are also treated as being non-breaking
(except for the newlines, of course). For example:

    The emergency signal is: S<
    dot dot dot   dash dash dash   dot dot dot>.

would be formatted like so:

    The emergency signal is:
    dot dot dot   dash dash dash   dot dot dot.

rather than:

    The emergency signal is: dot dot dot dash dash dash dot dot dot.

=cut

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

=head2 to_xhtml

    I

Render xhtml:

    test


=cut

sub to_xhtml {
    my ( $self, $parser, @in ) = @_;
    my @elements = $parser->_make_events(@in);

    #  $VAR1 = {
    #          'data' => \'
    #          dot dots dot   dash dash dash   dot dot dot',
    #                    'type' => 'CHARACTERS
    #    }
    # process only 'type' => 'CHARACTERS
    for (@elements) {
        next unless exists $_->{type};
        next unless $_->{type} eq 'CHARACTERS';

        #replase spaces ->    and new lines ->  )
        ${ $_->{data} } =~ s% % %gs;
        ${ $_->{data} } =~ s%\n%%gs;
    }
    \@elements;
}

=head2 to_docbook

    S

Render to

    test


L

=cut

sub to_docbook {
    my ( $self, $parser, @in ) = @_;
    $parser->mk_element('literallayout')
      ->add_content( $parser->_make_events(@in) );
}

1;
__END__