File Coverage

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

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	27	44.4

package PLS::Parser::Pod::Builtin;

use strict;
use warnings;

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

=head1 NAME

PLS::Parser::Pod::Builtin

=head1 DESCRIPTION

This attempts to find POD for a Perl builtin functions or keywords.

=cut

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

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

    return $self;
} ## end sub new

sub find
{
    my ($self) = @_;

    my ($ok, $markdown) = $self->run_perldoc_command('-Tuf', $self->{function});

    $self->{markdown} = $markdown if $ok;
    return $ok;
} ## end sub find

1;