/usr/share/perl5/RDF/Redland/LiteralNode.pm is in librdf-perl 1.0.16.1-1.1ubuntu1.
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 | # -*- Mode: Perl -*-
#
# LiteralNode.pm - Redland Perl RDF Literal Node module
#
# Copyright (C) 2005 David Beckett - http://www.dajobe.org/
# Copyright (C) 2005 University of Bristol - http://www.bristol.ac.uk/
#
# This package is Free Software and part of Redland http://librdf.org/
#
# It is licensed under the following three licenses as alternatives:
# 1. GNU Lesser General Public License (LGPL) V2.1 or any newer version
# 2. GNU General Public License (GPL) V2 or any newer version
# 3. Apache License, V2.0 or any newer version
#
# You may not use this file except in compliance with at least one of
# the above three licenses.
#
# See LICENSE.html or LICENSE.txt at the top of this package for the
# full license terms.
#
#
#
package RDF::Redland::LiteralNode;
use strict;
use vars qw(@ISA);
@ISA='RDF::Redland::Node';
=pod
=head1 NAME
RDF::Redland::LiteralNode - Redland RDF Literal Node Class
=head1 SYNOPSIS
use RDF::Redland;
my $node1=new RDF::Redland::LiteralNode("Hello, World!");
my $node2=new RDF::Redland::LiteralNode("Bonjour monde!", undef, "fr");
=head1 DESCRIPTION
This class represents RDF literal and Typed Literals in the RDF
graph. See L<RDF::Redland::Node> for the methods on this object.
=cut
######################################################################
=pod
=head1 CONSTRUCTOR
=over
=item new STRING [DATATYPE [XML_LANGUAGE]]
Create a new literal node for a literal value I<STRING>.
Optional datatype URI I<DATATYPE> (RDF::Redland::URI, perl URI or string)
and language (xml:lang attribute) I<XML_LANGUAGE> may also be given.
=cut
# CONSTRUCTOR
sub new ($$;$$) {
my($proto,$arg,$datatype,$xml_language)=@_;
my $class = ref($proto) || $proto;
my $self = {};
return RDF::Redland::Node->new_literal($arg,$datatype,$xml_language);
}
=back
=head1 SEE ALSO
L<RDF::Redland::Node>
=head1 AUTHOR
Dave Beckett - http://www.dajobe.org/
=cut
1;
|