File Coverage

blib/lib/Pod/Simpler/Aoh.pm

Criterion	Covered	Total	%
statement	41	44	93.1
branch	24	30	80.0
condition	8	10	80.0
subroutine	12	12	100.0
pod	3	3	100.0
total	88	99	88.8

package Pod::Simpler::Aoh;

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

extends 'Pod::Simple';

our $VERSION = '1.00';

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

sub _build_pod_elements {
    return {
        Document      => 'skip',
        head1         => 'title',
        head2         => 'title',
        head2         => 'title',
        head4         => 'title',
        Para          => 'content',
        'item-text'   => 'content',
        'over-text'   => 'content',
	'over-bullet' => 'content',
        'item-bullet' => '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 find {
	my @sections;
	for ($_[0]->aoh) {
		push @sections, $_ if $_->{$_[1]} =~ m/$_[2]/i;
	}
	return wantarray ? @sections : $sections[0];
}

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,
        };
	if ($_[0]->split_content) {
            $el_args->{content} = delete $el_args->{text};
            push @{$_[0]->section->{content}}, $el_args;
	} else {
	    $el_args->{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__