view release on metacpan or  search on metacpan

lib/Goo/Thing/pm/Perl5.pm  view on Meta::CPAN

package Goo::Thing::pm::Perl5; 

###############################################################################
# Nigel Hamilton
#
# Copyright Nigel Hamilton 2005
# All Rights Reserved
#
# Author: 		Nigel Hamilton
# Filename:		Goo::Thing::pm::Perl5.pm
# Description: 	Model Perl5 things
#
# Date	 		Change
# -----------------------------------------------------------------------------
# 12/03/2005	Auto generated file
# 12/03/2005	Needed to locate builtin functions
#
###############################################################################

use strict; 

# lists functions not reserved words
my @functions = qw(abs accept alarm atan2 binmode binmode bless caller chdir chmod chomp chomp chown chr chroot close closedir connect continue close crypt data dbmclose dbmopen defined delete die do dump each endgrent endhostent endnetent endprotoen...

# common functions and reserved words
my @common = qw(abs accept binmode bless caller chdir chmod chomp chown chr chroot close continue defined delete 
die do each else eval exec exists exit flock for foreach fork format glob gmtime goto grep hex if import index int ioctl join keys last lc lcfirst length link listen local localtime log map mkdir my next oct open ord pack package pipe pop pos print p...

my %builtins = map { $_ => 1 } @functions; 

# hold a hash of common reserved words
my %reserved = map { $_ => 1 } @common; 


###############################################################################
#
# is_built_in_function - is the function a core perl5?
#
###############################################################################

sub is_built_in_function { 

	my ($function) = @_; 
	
	return exists $builtins{$function}; 

} 


###############################################################################
#
# is_reserved_word - is this a reserved word?
#
###############################################################################

sub is_reserved_word { 

	my ($word) = @_; 
	
	return exists $reserved{$word}; 

} 


###############################################################################
#
# get_common_words - return a list of reserved words
#
###############################################################################

sub get_common_words { 

	return @common; 

} 

1; 


__END__

=head1 NAME

Goo::Thing::pm::Perl5 - Model Perl5 reserved words

=head1 SYNOPSIS