File Coverage

blib/lib/Perldoc.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Perldoc;
2 1     1   119186 use Perldoc::Base -base;
  1         2  
  1         8  
3 1     1   378 use 5.006001;
  1         4  
  1         278  
4             our $VERSION = '0.20';
5              
6             sub kwid_to_html {
7 1     1 0 10802 my $class = shift;
8              
9 1         828 require Perldoc::Parser::Kwid;
10 1         716 require Perldoc::Emitter::HTML;
11              
12 1         5 my $html = '';
13 1         12 my $receiver = Perldoc::Emitter::HTML->new->init(
14             stringref => \$html,
15             );
16 1         12 my $parser = Perldoc::Parser::Kwid->new(
17             receiver => $receiver,
18             )->init(@_);
19 1         7 $parser->parse;
20 1         56 return $html;
21             }
22              
23              
24             =head1 NAME
25              
26             Perldoc - Documentation Framework for Perl
27              
28             =head1 SYNOPSIS
29              
30             > perl-doc --kwid-to-html Doc.kwid > Doc.html
31              
32             =head1 DESCRIPTION
33              
34             Perldoc is meant to be a full featured documentation framework for Perl.
35              
36             This release just contains enough functionality to convert Kwid to HTML.
37              
38             =head1 AUTHOR
39              
40             Ingy döt Net
41             Audrey Tang
42              
43             Audrey wrote the original code for this parser.
44              
45             =head1 COPYRIGHT
46              
47             Copyright (c) 2006. Ingy döt Net. All rights reserved.
48              
49             This program is free software; you can redistribute it and/or modify it
50             under the same terms as Perl itself.
51              
52             See L
53              
54             =cut