/usr/share/perl5/AtteanX/Parser/Turtle/Token.pm is in libattean-perl 0.017-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 | use v5.14;
use warnings;
=head1 NAME
AtteanX::Parser::Turtle::Token - Token objects used for parsing of Turtle
=head1 VERSION
This document describes AtteanX::Parser::Turtle::Token version 0.017
=head1 SYNOPSIS
use v5.14;
use Attean;
my $term = Attean::Blank->new('b1');
$term->ntriples_string; # _:b1
=head1 DESCRIPTION
The AtteanX::Parser::Turtle::Token class represents tokens produced and used
during parsing of Turtle.
=head1 ATTRIBUTES
=over 4
=item C<< type >>
An integer indicating the token type, defined in L<AtteanX::Parser::Turtle::Constants>
=item C<< start_line >>
The line number in the source text that this token begins on.
=item C<< start_column >>
The column number in the source text that this token begins on.
=item C<< line >>
The line number in the source text that this token ends on.
=item C<< column >>
The column number in the source text that this token ends on.
=item C<< args >>
An array of values associated with the token (e.g. the integer value of an INT token).
=back
=head1 METHODS
=over 4
=cut
package AtteanX::Parser::Turtle::Token;
use Moo;
use Types::Standard qw(ArrayRef Str);
use List::MoreUtils qw(zip);
use Sub::Util qw(set_subname);
use AtteanX::Parser::Turtle::Constants;
use namespace::clean;
our $VERSION = 0.017;
has type => ( is => 'ro', );
has start_line => ( is => 'ro', );
has start_column => ( is => 'ro', );
has line => ( is => 'ro', );
has column => ( is => 'ro', );
has args => ( is => 'ro', isa => ArrayRef[Str]);
=item C<< value >>
Returns the token value.
=cut
sub value {
my $self = shift;
my $args = $self->args;
return $args->[0];
}
=item C<< fast_constructor ( $type, $start_line, $start_col, $line, $col, \@args ) >>
Returns a new token object.
=cut
my @KEYS = qw(type start_line start_column line column args);
sub fast_constructor {
my $class = shift;
return $class->new(
zip @KEYS, @_
);
}
{
my %tokens = (
a => [A, 'a'],
prefix => [PREFIX, '@prefix'],
base => [BASE, '@base'],
lparen => [LPAREN, '('],
rparen => [RPAREN, ')'],
lbracket => [LBRACKET, '['],
rbracket => [RBRACKET, ']'],
dot => [DOT, '.'],
comma => [COMMA, ','],
semicolon => [SEMICOLON, ';'],
hathat => [HATHAT, '^^'],
);
for my $name (keys %tokens) {
my ($type, $value) = @{ $tokens{ $name } };
my $code = sub {
my $class = shift;
my $sl = shift // -1;
my $sc = shift // -1;
my $l = shift // $sl;
my $c = shift // $sc;
if ($sl > $l) { die '$start_line cannot be greater than $line in AtteanX::Parser::Turtle::Token constructor' }
if ($sc > $c) { die '$start_line cannot be greater than $line in AtteanX::Parser::Turtle::Token constructor' }
return $class->fast_constructor($type, $sl, $sc, $l, $c, [$value]);
};
Sub::Install::install_sub({
code => set_subname($name, $code),
as => $name
});
}
}
__PACKAGE__->meta->make_immutable;
1;
=back
=head1 BUGS
Please report any bugs or feature requests to through the GitHub web interface
at L<https://github.com/kasei/attean/issues>.
=head1 SEE ALSO
L<http://www.perlrdf.org/>
=head1 AUTHOR
Gregory Todd Williams C<< <gwilliams@cpan.org> >>
=head1 COPYRIGHT
Copyright (c) 2014--2016 Gregory Todd Williams.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|