File Coverage

blib/lib/PPI/Structure/When.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::Structure::When;
2              
3             =pod
4              
5             =head1 NAME
6              
7             PPI::Structure::When - Circular braces for a when statement
8              
9             =head1 SYNOPSIS
10              
11             when ( something ) {
12             ...
13             }
14              
15             =head1 INHERITANCE
16              
17             PPI::Structure::When
18             isa PPI::Structure
19             isa PPI::Node
20             isa PPI::Element
21              
22             =head1 DESCRIPTION
23              
24             C is the class used for circular braces that
25             contain the thing to be matched in a when statement.
26              
27             =head1 METHODS
28              
29             C has no methods beyond those provided by the
30             standard L, L and L methods.
31              
32             =cut
33              
34 64     64   369 use strict;
  64         107  
  64         1387  
35 64     64   325 use PPI::Structure ();
  64         111  
  64         2821  
36              
37             our $VERSION = '1.276';
38              
39             our @ISA = "PPI::Structure";
40              
41             1;
42              
43             =pod
44              
45             =head1 SUPPORT
46              
47             See the L in the main module.
48              
49             =head1 AUTHOR
50              
51             Adam Kennedy Eadamk@cpan.orgE
52              
53             =head1 COPYRIGHT
54              
55             Copyright 2001 - 2011 Adam Kennedy.
56              
57             This program is free software; you can redistribute
58             it and/or modify it under the same terms as Perl itself.
59              
60             The full text of the license can be found in the
61             LICENSE file included with this module.
62              
63             =cut