File Coverage

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

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	26	69.2

#===============================================================================
#
#  DESCRIPTION:  definition formatting code
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================

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

=pod

=head1 NAME

Perl6::Pod::FormattingCode::D - Definition

=head1 SYNOPSIS

    A D provides a way
    to add inline mark-up to a piece of text.

=head1 DESCRIPTION

The CE> formatting code indicates that the contained text is a
B, introducing a term that the adjacent text
elucidates. It is the inline equivalent of a C<=defn> block.
For example:

    There ensued a terrible moment of D: a brief
    suspension of the effects of gravity, accompanied by a sudden
    to-the-camera realisation of imminent downwards acceleration.

A definition may be given synonyms, which are specified after a vertical bar
and separated by semicolons:

    A D provides a way
    to add inline mark-up to a piece of text.

A definition would typically be rendered in italics or C< EdfnE...E/dfnE >
tags and will often be used as a link target for subsequent instances of the
term (or any of its specified synonyms) within a hypertext.

=cut


=head2 to_xhtml

    D

Render xhtml:

    photo

=cut

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

=head2 to_docbook

    D

Render xml:

    photo

=cut

sub to_docbook {
  my ( $self, $to ) = @_;
  $to->w->print($self->{term})
}


1;
__END__