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


line stmt bran cond sub pod time code
1              
2             use strict;
3 11     11   96 use warnings;
  11         29  
  11         291  
4 11     11   76  
  11         20  
  11         326  
5             use parent 'PLS::Parser::Element';
6 11     11   53  
  11         21  
  11         77  
7             =head1 NAME
8              
9             PLS::Parser::Element::Constant
10              
11             =head1 DESCRIPTION
12              
13             Subclass of L<PPI::Parser::Element> representing a constant
14             declared with C<use constant>.
15              
16             =cut
17              
18             {
19             my ($self) = @_;
20              
21 0     0 1   my $info = $self->SUPER::location_info;
22             $info->{constant} = 1;
23 0           return $info;
24 0           } ## end sub location_info
25 0            
26             1;