view release on metacpan or  search on metacpan

inc/Pod/Markdown.pm  view on Meta::CPAN

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
package Pod::Markdown;
BEGIN {
  $Pod::Markdown::VERSION = '1.103491';
}
# ABSTRACT: Convert POD to Markdown
use parent qw(https://metacpan.org/pod/Pod::Parser">Pod::Parser);
 
sub initialize {
    my $self = shift;
    $self->SUPER::initialize(@_);
    $self->_private;
    $self;
}
 
sub _private {
    my $self = shift;
    $self->{_MyParser} ||= {
        Text      => [],       # final text
        Indent    => 0,        # list indent levels counter
        ListType  => '-',      # character on every item