view release on metacpan or  search on metacpan

lib/Guacamole.pm  view on Meta::CPAN

Ellipsis ~ '...'

UnderscorePackage ~ '__PACKAGE__'
UnderscoreFile    ~ '__FILE__'
UnderscoreLine    ~ '__LINE__'
UnderscoreSub     ~ '__SUB__'
#UnderscoreData    ~ '__DATA__'
#UnderscoreEnd     ~ '__END__'

PhaseName ~ 'BEGIN' | 'CHECK' | 'INIT' | 'UNITCHECK' | 'END'

SubAttrArgs ~ '(' NonRParenOrEscapedParens_Any ')'

OpArrow   ~ '->'
OpInc     ~ '++' | '--'
OpPower   ~ '**'
OpUnary   ~ '!' | '~' | '\' | '+' | '-'
OpRegex   ~ '=~' | '!~'
OpMulti   ~ '*' | '/' | '%' | 'x'
OpAdd     ~ '+' | '-' | '.'

t/Statements/PhaseStatements.t  view on Meta::CPAN

use strict;
use warnings;
use Guacamole::Test;

parses('BEGIN {1}');
parses('CHECK {1}');
parses('INIT {1}');
parses('UNITCHECK {1}');
parses('END {1}');

parses('sub BEGIN {1}');
parses('sub CHECK {1}');
parses('sub INIT {1}');
parses('sub UNITCHECK {1}');
parses('sub END {1}');

done_testing();