File Coverage

blib/lib/Perl6/Pod/FormattingCode/T.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: terminal output
4             #
5             # AUTHOR: Aliaksandr P. Zahatski,
6             #===============================================================================
7             package Perl6::Pod::FormattingCode::T;
8              
9             =pod
10              
11             =head1 NAME
12              
13             Perl6::Pod::FormattingCode::T - Terminal output
14              
15             =head1 SYNOPSIS
16              
17             =para
18             Got C output : T
19              
20             =head1 DESCRIPTION
21              
22             The CE> formatting code specifies that the contained text is
23             B; that is: something that a program might print out.
24             Such content would typically be rendered in a T or with
25             C< EsampE...E/sampE > tags. The contents of a CE> code are always space-preserved (as if they had an implicit
26             C...E> around them). The CE> code is the inline equivalent of the C<=output> block.
27              
28             =cut
29              
30 3     3   19 use warnings;
  3         6  
  3         114  
31 3     3   16 use strict;
  3         7  
  3         68  
32 3     3   15 use Perl6::Pod::FormattingCode;
  3         7  
  3         68  
33 3     3   15 use base 'Perl6::Pod::FormattingCode';
  3         4  
  3         226  
34 3     3   17 use Perl6::Pod::Utl;
  3         7  
  3         542  
35             our $VERSION = '0.01';
36              
37             =head2 to_xhtml
38              
39             T
40              
41             Render xhtml:
42              
43             test
44            
45             =cut
46             sub to_xhtml {
47 0     0 1   my ( $self, $to ) = @_;
48 0           $to->w->raw('');
49 0           $to->visit( Perl6::Pod::Utl::parse_para($self->{content}->[0]) );
50 0           $to->w->raw('');
51             }
52              
53             =head2 to_docbook
54              
55             T
56              
57             Render to
58              
59             FreeBSD
60              
61             L
62             =cut
63              
64             sub to_docbook {
65 0     0 1   my ( $self, $to ) = @_;
66 0           $to->w->raw('');
67 0           $to->visit( Perl6::Pod::Utl::parse_para($self->{content}->[0]) );
68 0           $to->w->raw('');
69             }
70              
71              
72             1;
73             __END__