File Coverage

blib/lib/PLS/Parser/Element/Subroutine.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	14	0.0
condition			n/a
subroutine	4	9	44.4
pod	3	4	75.0
total	19	60	31.6

package PLS::Parser::Element::Subroutine;

use strict;
use warnings;

use parent 'PLS::Parser::Element';

use List::Util qw(any);

=head1 NAME

PLS::Parser::Element::Subroutine

=head1 DESCRIPTION

Subclass of L<PLS::Parser::Element> representing a subroutine declaration.

=cut

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

    my $info = $self->SUPER::location_info;

    my $signature = $self->signature;
    $info->{signature} = $signature if (ref $signature eq 'HASH');

    return $info;
} ## end sub location_info

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

    my $block = $self->element->block;
    return unless (ref $block eq 'PPI::Structure::Block');

    # only looking at first variable statement, for performance sake.
    foreach my $child ($block->children)
    {
        next   unless $child->isa('PPI::Statement::Variable');
        return unless $child->type eq 'my';
        return
          unless any { $_->isa('PPI::Token::Magic') and $_->content eq '@_' }
        $child->children;
        return unless (scalar $child->variables);
        return {label => $child->content, parameters => [map { {label => $_} } $child->variables]};
    } ## end foreach my $child ($block->...)

    return;
} ## end sub signature

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

    return $self->element->name;
}

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

    return $self->SUPER::length() + length('sub ');
}

1;