File Coverage

blib/lib/Language/P/Keywords.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	4	0.0
total	25	31	80.6

package Language::P::Keywords;

use Exporter 'import';

our( @KEYWORDS, @BUILTINS, @OVERRIDABLES );
BEGIN {
  our @KEYWORDS = qw(KEY_IF KEY_UNLESS KEY_ELSE KEY_ELSIF KEY_FOR KEY_FOREACH KEY_WHILE KEY_UNTIL KEY_CONTINUE KEY_DO OP_LAST OP_NEXT OP_REDO OP_GOTO OP_MY OP_OUR OP_STATE KEY_LOCAL KEY_SUB KEY_PACKAGE);
  our @BUILTINS = qw(KEY_EVAL KEY_PRINT KEY_DEFINED KEY_RETURN KEY_UNDEF KEY_MAP KEY_GREP);
  our @OVERRIDABLES = qw(KEY_UNLINK KEY_GLOB KEY_READLINE KEY_DIE KEY_OPEN KEY_PIPE KEY_CHDIR KEY_RMDIR KEY_READLINE KEY_CLOSE KEY_BINMODE KEY_ABS KEY_WANTARRAY);
};

our @EXPORT = ( @KEYWORDS, @BUILTINS, @OVERRIDABLES,
                qw(@KEYWORDS @BUILTINS @OVERRIDABLES),
                qw(is_keyword is_builtin is_overridable is_id)
                );
our %EXPORT_TAGS =
  ( all       => \@EXPORT,
    constants => [ @KEYWORDS, @BUILTINS, @OVERRIDABLES ],
    );

use constant +
  { ID_MASK          => 0x00003, # 2
    KEYWORD_MASK     => 0x0007c, # 5
    BUILTIN_MASK     => 0x00f80, # 5
    OVERRIDABLE_MASK => 0x1f000, # 5
    };

use constant +
  { ( map { $KEYWORDS[$_] => ( $_ + 1 ) << 2 } 0 .. $#KEYWORDS ),
    ( map { $BUILTINS[$_] => ( $_ + 1 ) << 7 } 0 .. $#BUILTINS ),
    ( map { $OVERRIDABLES[$_] => ( $_ + 1 ) << 12 } 0 .. $#OVERRIDABLES ),
    };

sub is_keyword($)     { $_[0] & KEYWORD_MASK }
sub is_builtin($)     { $_[0] & BUILTIN_MASK }
sub is_overridable($) { $_[0] & OVERRIDABLE_MASK }
sub is_id($)          { $_[0] & ID_MASK }

our %KEYWORDS =
  (
    'unlink' => KEY_UNLINK,
    'print' => KEY_PRINT,
    'eval' => KEY_EVAL,
    'else' => KEY_ELSE,
    'until' => KEY_UNTIL,
    'elsif' => KEY_ELSIF,
    'unless' => KEY_UNLESS,
    'sub' => KEY_SUB,
    'glob' => KEY_GLOB,
    'grep' => KEY_GREP,
    'rmdir' => KEY_RMDIR,
    'next' => OP_NEXT,
    'abs' => KEY_ABS,
    'binmode' => KEY_BINMODE,
    'chdir' => KEY_CHDIR,
    'my' => OP_MY,
    'last' => OP_LAST,
    'close' => KEY_CLOSE,
    'defined' => KEY_DEFINED,
    'goto' => OP_GOTO,
    'die' => KEY_DIE,
    'pipe' => KEY_PIPE,
    'readline' => KEY_READLINE,
    'local' => KEY_LOCAL,
    'foreach' => KEY_FOREACH,
    'open' => KEY_OPEN,
    'map' => KEY_MAP,
    'our' => OP_OUR,
    'do' => KEY_DO,
    'return' => KEY_RETURN,
    'state' => OP_STATE,
    'undef' => KEY_UNDEF,
    'redo' => OP_REDO,
    'wantarray' => KEY_WANTARRAY,
    'package' => KEY_PACKAGE,
    'while' => KEY_WHILE,
    'continue' => KEY_CONTINUE,
    'for' => KEY_FOR,
    'if' => KEY_IF,
    );

1;