File Coverage

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

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	28	57.1

use strict;
use warnings;

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

use PLS::Parser::Element::Variable;

=head1 NAME

PLS::Parser::Element::Variable

=head1 DESCRIPTION

Subclass of L<PLS::Parser::Element> representing a variable statement.

=cut

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

    my $self = $class->SUPER::new(@args);
    $self->{symbols} = [
                        map  { PLS::Parser::Element::Variable->new(document => $self->{document}, element => $_, file => $self->{file}) }
                        grep { ref $_ eq 'PPI::Token::Symbol' } $self->element->symbols
                       ];

    return $self;
} ## end sub new

{
    my ($self) = @_;

    return $self->{symbols};
}

1;