/usr/share/perl5/RDF/Redland/Serializer.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 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 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 | # -*- Mode: Perl -*-
#
# Serializer.pm - Redland Perl RDF Serializer module
#
# Copyright (C) 2002-2005 David Beckett - http://www.dajobe.org/
# Copyright (C) 2002-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::Serializer;
use strict;
use RDF::Redland::Stream;
=pod
=head1 NAME
RDF::Redland::Serializer - Redland RDF Serializing to Syntax Class
=head1 SYNOPSIS
use RDF::Redland;
...
my $serializer=new RDF::Redland::Serializer("ntriples");
$serializer->serialize_model_to_file("foo.rdf", $base_uri, $model);
=head1 DESCRIPTION
This class represents serializers that turn RDF graphs into various syntaxes.
from an RDF::Redland::Model object.
=cut
######################################################################
=pod
=head1 CONSTRUCTORS
=over
=item new [NAME [MIME_TYPE [URI]]]
Create a new RDF::Redland::Serializer object for a syntax serializer
named I<NAME>, with MIME Type I<MIME_TYPE> and/or URI I<URI>. Any
field can be undef or omitted; if all are omitted, the default serializer
is used, currently 'ntriples'.
=cut
# CONSTRUCTOR
# (main)
sub new ($;$$$) {
my($proto,$name,$mime_type,$uri)=@_;
my $class = ref($proto) || $proto;
my $self = {};
if(defined $uri) {
$uri=$uri->{URI};
}
$self->{SERIALIZER}=&RDF::Redland::CORE::librdf_new_serializer($RDF::Redland::World->{WORLD},$name,$mime_type,$uri);
return undef if !$self->{SERIALIZER};
bless ($self, $class);
return $self;
}
=pod
=back
=cut
sub DESTROY ($) {
warn "RDF::Redland::Serializer DESTROY\n" if $RDF::Redland::Debug;
&RDF::Redland::CORE::librdf_free_serializer(shift->{SERIALIZER});
}
=head1 METHODS
=over
=item serialize_model_to_file FILENAME BASE_URI MODEL
Serialize the RDF Graph I<MODEL> as syntax with the
base RDF::Redland::URI I<BASE_URI> to file I<FILENAME>.
=cut
sub serialize_model_to_file ($$$$) {
my($self,$name,$base_uri,$model)=@_;
return &RDF::Redland::CORE::librdf_serializer_serialize_model_to_file($self->{SERIALIZER},$name, $base_uri->{URI},$model->{MODEL});
}
=item serialize_model_to_string BASE-URI MODEL
Serialize the RDF Graph I<MODEL> to a syntax. If no serializer name is given,
the default serializer RDF/XML is used.
=cut
sub serialize_model_to_string($$$) {
my($self,$uri,$model)=@_;
return &RDF::Redland::CORE::librdf_serializer_serialize_model_to_string($self->{SERIALIZER}, $uri->{URI}, $model->{MODEL});
}
=item set_namespace PREFIX URI
Define a namespace I<URI> with the supplied I<PREFIX> for use in serializing
an RDF Graph.
=cut
sub set_namespace ($$$) {
my($self,$prefix, $uri)=@_;
warn "RDF::Redland::Serializer->namespace('$prefix', '$uri')\n" if $RDF::Redland::Debug;
$uri=RDF::Redland::URI->new($uri)
unless ref $uri;
return &RDF::Redland::CORE::librdf_serializer_set_namespace($self->{SERIALIZER},$uri->{URI}, $prefix);
}
=item feature URI [VALUE]
Get/set a serializer feature. The feature is named via
RDF::Redland::URI I<URI> and the value is a string. If I<VALUE> is
given, the feature is set to that value, otherwise the current value
is returned.
=cut
sub feature ($$;$) {
my($self,$uri,$value)=@_;
warn "RDF::Redland::Serializer->feature('$uri', '$value')\n"
if $RDF::Redland::Debug;
$uri=RDF::Redland::URI->new($uri)
unless ref $uri;
if(!defined $value) {
$value=&RDF::Redland::CORE::librdf_serializer_get_feature($self->{SERIALIZER},
$uri->{URI});
return $value ? RDF::Redland::Node->_new_from_object($value,1) : undef;
}
$value=RDF::Redland::LiteralNode->new($value)
unless ref $value;
return &RDF::Redland::CORE::librdf_serializer_set_feature($self->{SERIALIZER},
$uri->{URI},
$value->{NODE});
}
=pod
=back
=head1 SEE ALSO
L<RDF::Redland::Parser>,
L<RDF::Redland::URI>
=head1 AUTHOR
Dave Beckett - http://www.dajobe.org/
=cut
1;
|