1PPI::Statement::When(3)User Contributed Perl DocumentatioPnPI::Statement::When(3)
2
3
4
6 PPI::Statement::When - A when statement
7
9 foreach ( qw/ foo bar baz / ) {
10 when ( m/b/ ) {
11 boing($_);
12 }
13 when ( m/f/ ) {
14 boom($_);
15 }
16 default {
17 tchak($_);
18 }
19 }
20
22 PPI::Statement::When
23 isa PPI::Statement
24 isa PPI::Node
25 isa PPI::Element
26
28 "PPI::Statement::When" objects are used to describe when and default
29 statements, as described in perlsyn.
30
32 "PPI::Structure::When" has no methods beyond those provided by the
33 standard PPI::Structure, PPI::Node and PPI::Element methods.
34
36 - Write unit tests for this package
37
39 See the support section in the main module.
40
42 Adam Kennedy <adamk@cpan.org>
43
45 Copyright 2001 - 2011 Adam Kennedy.
46
47 This program is free software; you can redistribute it and/or modify it
48 under the same terms as Perl itself.
49
50 The full text of the license can be found in the LICENSE file included
51 with this module.
52
53
54
55perl v5.38.0 2023-09-22 PPI::Statement::When(3)