view release on metacpan or  search on metacpan

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

package Pod::Markdown;
BEGIN {
  $Pod::Markdown::VERSION = '1.103491';
}
# ABSTRACT: Convert POD to Markdown
use parent qw(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