File Coverage

blib/lib/Perl6/Pod/FormattingCode/K.pm
Criterion Covered Total %
statement 15 25 60.0
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 22 34 64.7


line stmt bran cond sub pod time code
1             #===============================================================================
2             #
3             # DESCRIPTION: keyboard input
4             #
5             # AUTHOR: Aliaksandr P. Zahatski,
6             #===============================================================================
7             package Perl6::Pod::FormattingCode::K;
8             =pod
9              
10             =head1 NAME
11              
12             Perl6::Pod::FormattingCode::K - keyboard input
13              
14             =head1 SYNOPSIS
15              
16             Do you want additional personnel details? K
17              
18             =head1 DESCRIPTION
19              
20             The CE> formatting code specifies that the contained text is
21             B; that is: something that a user might type in. Such
22             content would typically be rendered in a fixed-width font (preferably a
23             different font from that used for the CE> formatting code) or with
24             C< EkbdE...E/kbdE > tags. The contents of a CE> code are always space-preserved. The CE> code is the
25             inline equivalent of the C<=input> block.
26              
27             =cut
28              
29 3     3   14 use warnings;
  3         5  
  3         82  
30 3     3   14 use strict;
  3         5  
  3         57  
31 3     3   13 use Data::Dumper;
  3         6  
  3         124  
32 3     3   14 use Perl6::Pod::FormattingCode;
  3         6  
  3         59  
33 3     3   21 use base 'Perl6::Pod::FormattingCode';
  3         3  
  3         577  
34             our $VERSION = '0.01';
35              
36             =head2 to_xhtml
37              
38             K
39              
40             Render xhtml:
41              
42             test
43            
44             =cut
45             sub to_xhtml {
46 0     0 1   my ( $self, $to ) = @_;
47 0           my $w = $to->w;
48 0           $w->raw("");
49 0           $to->visit_childs($self);
50 0           $w->raw('');
51             }
52              
53             =head2 to_docbook
54              
55             K
56              
57             Render to
58              
59             test
60              
61             L
62              
63             =cut
64              
65             sub to_docbook {
66 0     0 1   my ( $self, $to ) = @_;
67 0           my $w = $to->w;
68 0           $w->raw("");
69 0           $to->visit_childs($self);
70 0           $w->raw('');
71             }
72              
73              
74             1;
75             __END__