File Coverage

blib/lib/PLS/Parser/Pod/Package.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch	0	10	0.0
condition	0	2	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	12	50	24.0

use strict;
use warnings;

use parent 'PLS::Parser::Pod';

=head1 NAME

PLS::Parser::Pod::Package

=head1 DESCRIPTION

This is a subclass of L<PLS::Parser::Pod>, used to find POD for a package.

=cut

{
    my ($class, @args) = @_;

    my %args = @args;
    my $self = $class->SUPER::new(%args);
    $self->{package} = $args{package};

    return $self;
} ## end sub new

{
    my ($self) = @_;

    my $definitions;
    $definitions = $self->{index}->find_package($self->{package}) if (ref $self->{index} eq 'PLS::Parser::Index');

    if (ref $definitions eq 'ARRAY' and scalar @$definitions)
    {
        foreach my $definition (@$definitions)
        {
            my $path = URI->new($definition->{uri})->file;
            open my $fh, '<', $path or next;
            my $text = do { local $/; <$fh> };
            my ($ok, $markdown) = $self->get_markdown_from_text(\$text);

            if ($ok)
            {
                $self->{markdown} = $markdown;
                return 1;
            }
        } ## end foreach my $definition (@$definitions...)
    } ## end if (ref $definitions eq...)

    my ($ok, $markdown) = $self->get_markdown_for_package($self->{package});
    $self->{markdown} = $markdown if $ok;

    return $ok;
} ## end sub find

1;