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


line stmt bran cond sub pod time code
1              
2             use strict;
3 11     11   73 use warnings;
  11         14  
  11         282  
4 11     11   44  
  11         23  
  11         278  
5             use parent 'PLS::Parser::Element';
6 11     11   46  
  11         13  
  11         51  
7             =head1 NAME
8              
9             PLS::Parser::Element::Package
10              
11             =head1 DESCRIPTION
12              
13             Subclass of L<PLS::Parser::Element> representing a package declaration.
14              
15             =cut
16              
17             {
18             my ($self) = @_;
19              
20 0     0 1   return $self->element->namespace;
21             }
22 0            
23             {
24             my ($self) = @_;
25              
26             return $self->SUPER::length() + length('package ') + length(';');
27 0     0 1   }
28              
29 0           1;