Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/RDF/Trine/Parser/Turtle

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Constants.pm	1.65 KB	-rw-r--r--	2018-01-05 04:59:12	Edit Del
Lexer.pm	19.91 KB	-rw-r--r--	2018-01-05 04:59:12	Edit Del
Token.pm	736 B	-rw-r--r--	2014-08-12 06:11:05	Edit Del

Editing: Constants.pm (1.65 KB)

# RDF::Trine::Parser::Turtle::Constants
# -----------------------------------------------------------------------------

=head1 NAME

RDF::Trine::Parser::Turtle::Constants - Constant definitions for use in parsing Turtle, TriG, and N-Triples

=head1 VERSION

This document describes RDF::Trine::Parser::Turtle::Constants version 1.019

=head1 SYNOPSIS

 use RDF::Trine::Parser::Constants;

=head1 METHODS

=over 4

=cut

package RDF::Trine::Parser::Turtle::Constants;

use strict;
use warnings;
use 5.010;

our $VERSION;
our @EXPORT;
BEGIN {
	$VERSION				= '1.019';
	@EXPORT = qw(
		LBRACKET
		RBRACKET
		LPAREN
		RPAREN
		DOT
		SEMICOLON
		COMMA
		HATHAT
		A
		BOOLEAN
		PREFIXNAME
		IRI
		BNODE
		DOUBLE
		DECIMAL
		INTEGER
		WS
		COMMENT
		STRING3D
		STRING3S
		STRING1D
		STRING1S
		BASE
		PREFIX
		SPARQLBASE
		SPARQLPREFIX
		LANG
		LBRACE
		RBRACE
		EQUALS
		decrypt_constant
	)
};
use base 'Exporter';

{
	my %mapping;
	my %reverse;
	BEGIN {
		my $cx	= 0;
		foreach my $name (grep { $_ ne 'decrypt_constant' } @EXPORT) {
			my $value	= ++$cx;
			$reverse{ $value }	= $name;
			$mapping{ $name }	= $value;
		}
	}
	use constant +{ %mapping };

=item C<< decrypt_constant ( $type ) >>

Returns the token name for the given toke type.

=cut

	sub decrypt_constant { my $num	= +shift; $reverse{$num} }
};

1;

__END__

=back

=head1 BUGS

Please report any bugs or feature requests to through the GitHub web interface
at L<https://github.com/kasei/perlrdf/issues>.

=head1 AUTHOR

Toby Inkster C<< <tobyink@cpan.org> >>

=head1 COPYRIGHT

Copyright (c) 2012 Toby Inkster. This
program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut