File Coverage

blib/lib/Pod/Simpler/Aoh.pm

Criterion	Covered	Total	%
statement	33	35	94.2
branch	20	24	83.3
condition	8	10	80.0
subroutine	10	11	90.9
pod	2	2	100.0
total	73	82	89.0

package Pod::Simpler::Aoh;

use Moo;
use MooX::LazierAttributes;
use Types::Standard qw/Str ArrayRef HashRef/;

extends 'Pod::Simple';

our $VERSION = '0.07';

attributes(
    pod => [ rw, ArrayRef, { lzy_array, clr } ],
    section => [ rw, HashRef, { lzy_hash, clr } ],
    pod_elements => [ HashRef, { lzy, bld } ],
    element_name => [ rw, Str, { clr } ],
);

sub _build_pod_elements {
    return {
        Document    => 'skip',
        head1       => 'title',
        head2       => 'title',
        head2       => 'title',
        head4       => 'title',
        Para        => 'content',
        'item-text' => 'content',
        'over-text' => 'content',
        Verbatim    => 'content',
        Data        => 'content',
        C           => 'content',
        L           => 'content',
        B           => 'content',
        I           => 'content',
        E           => 'content',
        F           => 'content',
        S           => 'content',
        X           => 'content',
        join        => 'content',
    };
}

for (qw/parse_file parse_from_file parse_string_document/) {
    around $_ => sub {
        my ( $orig, $self, $args ) = @_;
        $self->clear_pod;
        $self->$orig($args);
        return $self->pod;
    };
}

sub get {
    return $_[0]->pod->[ $_[1] ];
}

sub aoh {
    return @{ $_[0]->pod };
}

sub _handle_element_start {
    $_[0]->element_name( $_[1] );
    if ( $_[0]->pod_elements->{ $_[1] } eq 'title' ) {
        $_[0]->section->{title} && $_[0]->section->{identifier}
          and $_[0]->_insert_pod;
        not $_[0]->section->{identifier}
          and $_[0]->section->{identifier} = $_[1];
    }
}

sub _handle_text {
    my $el_name = $_[0]->element_name || 'join';
    $_[0]->clear_element_name;
    my $pel = $_[0]->pod_elements->{$el_name};
    if ($pel =~ m#content#) {
        my $el_args = {
            text         => $_[1],
            element_name => $el_name,
            content      => $_[0]->section->{content},
        };
        $_[0]->section->{content} =
          $_[0]->_parse_text( 'content', $el_args );
    }
    elsif ($pel =~ m!title!) {
        $_[0]->section->{title} = $_[1];
    }
}

sub _handle_element_end {
    if ( $_[0]->source_dead ) {
        $_[0]->_insert_pod
          if $_[0]->section->{title}
          && $_[0]->section->{identifier};
    }
}

sub _insert_pod {
    push @{ $_[0]->pod }, $_[0]->section;
    return $_[0]->clear_section;
}

sub _parse_text {
    my $content = $_[2]->{$_[1]} || '';
    if ( $_[2]->{element_name} =~ m{item-text|over-text} ) {
        return sprintf "%s\n\n%s\n\n", $content, $_[2]->{text};
    }
    # expecting a code example
    elsif ( $_[2]->{element_name} =~ m/Verbatim/ ) {
        return $content ? sprintf "%s\n\n%s\n\n", $content, $_[2]->{text} : sprintf("%s\n\n", $_[2]->{text});
    }
    elsif ( $content =~ /[\;\.\:\*]$/ ) {
        return sprintf "%s\n\n%s", $content, $_[2]->{text};
    }
    return $content ? sprintf "%s%s", $content, $_[2]->{text} : $_[2]->{text};
}


1;

__END__