File Coverage

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

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	18	72.2

package PLS::Parser::Element::Constant;

use strict;
use warnings;

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

=head1 NAME

PLS::Parser::Element::Constant

=head1 DESCRIPTION

Subclass of L<PPI::Parser::Element> representing a constant
declared with C<use constant>.

=cut

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

    my $info = $self->SUPER::location_info;
    $info->{constant} = 1;
    return $info;
} ## end sub location_info

1;