/usr/share/perl5/RDF/Trine/Parser/Turtle/Token.pm is in librdf-trine-perl 1.011-2.
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 | package RDF::Trine::Parser::Turtle::Token;
use 5.010;
use strict;
use warnings;
use MooseX::ArrayRef;
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', );
=begin private
=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, $line, $col, \@args ) >>
Returns a new token object.
=cut
# This constructor relies on the list of attributes not changing order!
sub fast_constructor {
my $class = shift;
bless \@_, $class;
}
__PACKAGE__->meta->make_immutable;
1;
=end private
=cut
|