Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
Block.pm	1.32 KB	-rw-rw-rw-
Condition.pm	1.13 KB	-rw-rw-rw-
Constructor.pm	1.11 KB	-rw-rw-rw-
For.pm	1.41 KB	-rw-rw-rw-
Given.pm	1.07 KB	-rw-rw-rw-
List.pm	1.65 KB	-rw-rw-rw-
Subscript.pm	1.23 KB	-rw-rw-rw-
Unknown.pm	1.52 KB	-rw-rw-rw-
When.pm	1.06 KB	-rw-rw-rw-

Code Editor : For.pm

package PPI::Structure::For;

=pod

=head1 NAME

PPI::Structure::For - Circular braces for a for expression

=head1 SYNOPSIS

for ( var $i = 0; $i < $max; $i++ ) {
      ...
  }

=head1 INHERITANCE

PPI::Structure::For
  isa PPI::Structure
      isa PPI::Node
          isa PPI::Element

=head1 DESCRIPTION

C<PPI::Structure::For> is the class used for circular braces that
contain the three part C<for> expression.

=head1 METHODS

C<PPI::Structure::For> has no methods beyond those provided by the
standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.

=cut

use strict;
use PPI::Structure ();

our $VERSION = '1.270'; # VERSION

our @ISA = "PPI::Structure";

# Highly special custom isa method that will continue to respond
# positively to ->isa('PPI::Structure::ForLoop') but warns.
my $has_warned = 0;
sub isa {
	if ( $_[1] and $_[1] eq 'PPI::Structure::ForLoop' ) {
		unless ( $has_warned ) {
			warn("PPI::Structure::ForLoop has been deprecated");
			$has_warned = 1;
		}
		return 1;
	}
	return shift->SUPER::isa(@_);
}

=pod

=head1 SUPPORT

See the L<support section|PPI/SUPPORT> in the main module.

=head1 AUTHOR

Adam Kennedy E<lt>adamk@cpan.orgE<gt>

=head1 COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.

=cut

${this.title}

Code Editor : For.pm