File Coverage

blib/lib/PPI/Statement/Null.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package PPI::Statement::Null;
2              
3             =pod
4              
5             =head1 NAME
6              
7             PPI::Statement::Null - A useless null statement
8              
9             =head1 SYNOPSIS
10              
11             my $foo = 1;
12            
13             ; # <-- Null statement
14            
15             my $bar = 1;
16              
17             =head1 INHERITANCE
18              
19             PPI::Statement::Null
20             isa PPI::Statement
21             isa PPI::Node
22             isa PPI::Element
23              
24             =head1 DESCRIPTION
25              
26             C is a utility class designed to handle situations
27             where PPI encounters a naked statement separator.
28              
29             Although strictly speaking, the semicolon is a statement B
30             and not a statement B, PPI considers a semicolon to be a
31             statement terminator under most circumstances.
32              
33             In any case, the null statement has no purpose, and can be safely deleted
34             with no ill effect.
35              
36             =head1 METHODS
37              
38             C has no additional methods beyond the default ones
39             provided by L, L and L.
40              
41             =cut
42              
43 63     63   345 use strict;
  63         107  
  63         1403  
44 63     63   266 use PPI::Statement ();
  63         112  
  63         3782  
45              
46             our $VERSION = '1.275';
47              
48             our @ISA = "PPI::Statement";
49              
50             # A null statement is not significant
51             sub significant() { '' }
52              
53             1;
54              
55             =pod
56              
57             =head1 SUPPORT
58              
59             See the L in the main module.
60              
61             =head1 AUTHOR
62              
63             Adam Kennedy Eadamk@cpan.orgE
64              
65             =head1 COPYRIGHT
66              
67             Copyright 2001 - 2011 Adam Kennedy.
68              
69             This program is free software; you can redistribute
70             it and/or modify it under the same terms as Perl itself.
71              
72             The full text of the license can be found in the
73             LICENSE file included with this module.
74              
75             =cut