File Coverage

blib/lib/Perl6/Pod/FormattingCode/R.pm
Criterion Covered Total %
statement 15 23 65.2
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 22 32 68.7


line stmt bran cond sub pod time code
1             #===============================================================================
2             #
3             # DESCRIPTION: replaceable item
4             #
5             # AUTHOR: Aliaksandr P. Zahatski,
6             #===============================================================================
7             package Perl6::Pod::FormattingCode::R;
8              
9             =pod
10              
11             =head1 NAME
12              
13             Perl6::Pod::FormattingCode::R - Replaceable item
14              
15             =head1 SYNOPSIS
16              
17             Then enter your details at the prompt:
18              
19             =for input
20             Name: B>
21             ID: B>
22             Pass: B>
23              
24             =head1 DESCRIPTION
25              
26             The CE> formatting code specifies that the contained text is a
27             B, a placeholder, or a metasyntactic variable. It is
28             used to indicate a component of a syntax or specification that should
29             eventually be replaced by an actual value. For example:
30              
31             The basic C command is: C R R
32              
33             or:
34              
35             Then enter your details at the prompt:
36              
37             =for input
38             Name: R
39             ID: R
40             Pass: R
41              
42             Typically replaceables would be rendered in fixed-width italics or with
43             C< EvarE...E/varE > tags. The font used should be the same as that used for
44             the CE> code, unless the CE> is inside a CE> or CE> code (or
45             the equivalent C<=input> or C<=output> blocks), in which case their
46             respective fonts should be used.
47              
48             =cut
49              
50 3     3   19 use warnings;
  3         7  
  3         117  
51 3     3   18 use strict;
  3         7  
  3         81  
52 3     3   19 use Perl6::Pod::FormattingCode;
  3         7  
  3         77  
53 3     3   17 use base 'Perl6::Pod::FormattingCode';
  3         5  
  3         304  
54 3     3   17 use Perl6::Pod::Utl;
  3         9  
  3         557  
55             our $VERSION = '0.01';
56              
57             =head2 to_xhtml
58              
59             Name: R
60              
61             Render xhtml:
62              
63             Name: your surname
64            
65             =cut
66             sub to_xhtml {
67 0     0 1   my ( $self, $to ) = @_;
68 0           $to->w->raw('');
69 0           $to->visit( Perl6::Pod::Utl::parse_para($self->{content}->[0]) );
70 0           $to->w->raw('');
71             }
72              
73             =head2 to_docbook
74              
75             Name: R
76              
77             Render to
78              
79             Name: your surname
80              
81             L
82             =cut
83              
84             sub to_docbook {
85 0     0 1   my ( $self, $to ) = @_;
86 0           $to->w->raw('');
87 0           $to->visit( Perl6::Pod::Utl::parse_para($self->{content}->[0]) );
88 0           $to->w->raw('');
89             }
90              
91              
92             1;
93             __END__