GWILLIAMS / RDF-Trine-1.002 / lib / RDF / Trine / Parser / Turtle / Constants.pm 

            

              
1
2
—
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
—
74
75
76
77
78
79
80
81
82
83
84
85
86
—
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

              
# 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
package RDF::Trine::Parser::Turtle::Constants;
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
        )
};
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