File Coverage

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

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	20	70.0

package PLS::Parser::Element::Package;

use strict;
use warnings;

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

=head1 NAME

PLS::Parser::Element::Package

=head1 DESCRIPTION

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

=cut

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

    return $self->element->namespace;
}

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

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

1;