Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Include	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Break.pm	1.39 KB	-rw-rw-rw-	2019-07-09 19:15
Compound.pm	4.43 KB	-rw-rw-rw-	2019-07-09 19:15
Data.pm	1.45 KB	-rw-rw-rw-	2019-07-09 19:15
End.pm	1.41 KB	-rw-rw-rw-	2019-07-09 19:15
Expression.pm	1.23 KB	-rw-rw-rw-	2019-07-09 19:15
Given.pm	1.38 KB	-rw-rw-rw-	2019-07-09 19:15
Include.pm	5.75 KB	-rw-rw-rw-	2019-07-09 19:15
Null.pm	1.41 KB	-rw-rw-rw-	2019-07-09 19:15
Package.pm	3.36 KB	-rw-rw-rw-	2019-07-09 19:15
Scheduled.pm	2.06 KB	-rw-rw-rw-	2019-07-09 19:15
Sub.pm	4.79 KB	-rw-rw-rw-	2019-07-09 19:15
Unknown.pm	1.46 KB	-rw-rw-rw-	2019-07-09 19:15
UnmatchedBrace.pm	1.68 KB	-rw-rw-rw-	2019-07-09 19:15
Variable.pm	4.09 KB	-rw-rw-rw-	2019-07-09 19:15
When.pm	1.53 KB	-rw-rw-rw-	2019-07-09 19:15

Rename

package PPI::Statement::Scheduled;

=pod

=head1 NAME

PPI::Statement::Scheduled - A scheduled code block

=head1 INHERITANCE

PPI::Statement::Scheduled
  isa PPI::Statement::Sub
      isa PPI::Statement
          isa PPI::Node
              isa PPI::Element

=head1 DESCRIPTION

A scheduled code block is one that is intended to be run at a specific
time during the loading process.

There are five types of scheduled block:

BEGIN {
  	# Executes as soon as this block is fully defined
  	...
  }

CHECK {
  	# Executes after overall compile-phase in reverse order
  	...
  }

UNITCHECK {
  	# Executes after compile-phase of individual module in reverse order
  	...
  }

INIT {
  	# Executes just before run-time
  	...
  }

END {
  	# Executes as late as possible in reverse order
  	...
  }

Technically these scheduled blocks are actually subroutines, and in fact
may have 'sub' in front of them.

=head1 METHODS

=cut

use strict;
use PPI::Statement::Sub ();

our $VERSION = '1.270'; # VERSION

our @ISA = "PPI::Statement::Sub";

sub __LEXER__normal() { '' }

sub _complete {
	my $child = $_[0]->schild(-1);
	return !! (
		defined $child
		and
		$child->isa('PPI::Structure::Block')
		and
		$child->complete
	);
}

=pod

=head2 type

The C<type> method returns the type of scheduled block, which should always be
one of C<'BEGIN'>, C<'CHECK'>, C<'UNITCHECK'>, C<'INIT'> or C<'END'>.

=cut

sub type {
	my $self     = shift;
	my @children = $self->schildren or return undef;
	$children[0]->content eq 'sub'
		? $children[1]->content
		: $children[0]->content;
}

# This is actually the same as Sub->name
sub name {
	shift->type(@_);
}

=pod

=head1 TO DO

- Write unit tests for this package

=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