———# 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.002
=head1 SYNOPSIS
use RDF::Trine::Parser::Constants;
=head1 METHODS
=over 4
=cut
use
strict;
use
warnings;
use
5.010;
our
@EXPORT
;
BEGIN {
@EXPORT
=
qw(
LBRACKET
RBRACKET
LPAREN
RPAREN
DOT
SEMICOLON
COMMA
HATHAT
A
BOOLEAN
PREFIXNAME
IRI
BNODE
DOUBLE
DECIMAL
INTEGER
WS
COMMENT
STRING3D
STRING1D
BASE
PREFIX
LANG
LBRACE
RBRACE
EQUALS
decrypt_constant
)
};
{
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
;
}
}
=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
=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