/usr/share/perl5/RDF/Redland/BlankNode.pm is in librdf-perl 1.0.17.1+dfsg-1.1+b1.
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 | # -*- Mode: Perl -*-
#
# BlankNode.pm - Redland Perl RDF Blank 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::BlankNode;
use strict;
use vars qw(@ISA);
@ISA='RDF::Redland::Node';
=pod
=head1 NAME
RDF::Redland::BlankNode - Redland RDF Blank Node Class
=head1 SYNOPSIS
use RDF::Redland;
my $node1=new RDF::Redland::BlankNode("id");
=head1 DESCRIPTION
This class represents a blank nodes in the RDF graph. See
L<RDF::Redland::Node> for the methods on this object.
=cut
######################################################################
=pod
=head1 CONSTRUCTOR
=over
=item new IDENTIFIER
Create a new blank node with identifier I<IDENTIFIER>.
=cut
# CONSTRUCTOR
sub new ($$) {
my($proto,$arg)=@_;
my $class = ref($proto) || $proto;
my $self = {};
return RDF::Redland::Node->new_from_blank_identifier($arg);
}
=back
=head1 SEE ALSO
L<RDF::Redland::Node>
=head1 AUTHOR
Dave Beckett - http://www.dajobe.org/
=cut
1;
|