File Coverage

blib/lib/Perl6/Pod/FormattingCode/U.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

package Perl6::Pod::FormattingCode::U;

=pod

=head1 NAME

Perl6::Pod::FormattingCode::U - Unusual text

=head1 SYNOPSIS

        =para
        the contained text is U

=head1 DESCRIPTION

The CE> formatting code specifies that the contained text is
B or distinctive; that it is of I. Typically
such content would be rendered in an underlined style.

=cut

use warnings;
use strict;
use Data::Dumper;
use Perl6::Pod::FormattingCode;
use base 'Perl6::Pod::FormattingCode';
our $VERSION = '0.01';

=head2 to_xhtml

    U

Render xhtml:

    sample

Use css style for underline style:

     .unusual {
     font-style: normal;
     text-decoration: underline;
     }

=cut

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

=head2 to_docbook

    U

Render to

   test

=cut
#http://old.nabble.com/docbook-with-style-info-td25857763.html

sub to_docbook {
    my ( $self, $to ) = @_;
    my $w  = $to->w;
    $w->raw('');
    $to->visit_childs($self);
    $w->raw('');

}

1;
__END__