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


line stmt bran cond sub pod time code
1             #===============================================================================
2             #
3             # DESCRIPTION: definition formatting code
4             #
5             # AUTHOR: Aliaksandr P. Zahatski,
6             #===============================================================================
7              
8             package Perl6::Pod::FormattingCode::D;
9 3     3   81 use strict;
  3         5  
  3         69  
10 3     3   15 use warnings;
  3         5  
  3         65  
11 3     3   15 use Perl6::Pod::FormattingCode;
  3         4  
  3         66  
12 3     3   14 use base 'Perl6::Pod::FormattingCode';
  3         5  
  3         600  
13             our $VERSION = '0.01';
14              
15             =pod
16              
17             =head1 NAME
18              
19             Perl6::Pod::FormattingCode::D - Definition
20              
21             =head1 SYNOPSIS
22              
23             A D provides a way
24             to add inline mark-up to a piece of text.
25              
26             =head1 DESCRIPTION
27              
28             The CE> formatting code indicates that the contained text is a
29             B, introducing a term that the adjacent text
30             elucidates. It is the inline equivalent of a C<=defn> block.
31             For example:
32              
33             There ensued a terrible moment of D: a brief
34             suspension of the effects of gravity, accompanied by a sudden
35             to-the-camera realisation of imminent downwards acceleration.
36              
37             A definition may be given synonyms, which are specified after a vertical bar
38             and separated by semicolons:
39              
40             A D provides a way
41             to add inline mark-up to a piece of text.
42              
43             A definition would typically be rendered in italics or C< EdfnE...E/dfnE >
44             tags and will often be used as a link target for subsequent instances of the
45             term (or any of its specified synonyms) within a hypertext.
46              
47             =cut
48              
49              
50             =head2 to_xhtml
51              
52             D
53              
54             Render xhtml:
55              
56             photo
57            
58             =cut
59              
60             sub to_xhtml {
61 0     0 1   my ( $self, $to ) = @_;
62 0           $to->w->raw('');
63 0           $to->w->print($self->{term});
64 0           $to->w->raw('');
65             }
66              
67             =head2 to_docbook
68              
69             D
70              
71             Render xml:
72              
73             photo
74            
75             =cut
76              
77             sub to_docbook {
78 0     0 1   my ( $self, $to ) = @_;
79             $to->w->print($self->{term})
80 0           }
81              
82              
83             1;
84             __END__