RDF::Trine::Serializer::RDFJSON - RDF/JSON Serializer

RDF-Trine documentation Contained in the RDF-Trine distribution.

Index

Code Index:

NAME

Top

RDF::Trine::Serializer::RDFJSON - RDF/JSON Serializer

VERSION

Top

This document describes RDF::Trine::Serializer::RDF/JSON version 0.135

SYNOPSIS

Top

 use RDF::Trine::Serializer::RDFJSON;
 my $serializer	= RDF::Trine::Serializer::RDFJSON->new();

DESCRIPTION

Top

The RDF::Trine::Serializer::Turtle class provides an API for serializing RDF graphs to the RDF/JSON syntax.

METHODS

Top

Beyond the methods documented below, this class inherits methods from the RDF::Trine::Serializer class.

new

Returns a new serializer object.

serialize_model_to_file ( $file, $model [,\%json_options] )

Serializes the $model to RDF/JSON, printing the results to the supplied $file handle.

%json_options is an options hash suitable for JSON::to_json.

serialize_model_to_string ( $model [,\%json_options] )

Serializes the $model to RDF/JSON, returning the result as a string.

%json_options is an options hash suitable for JSON::to_json.

SEE ALSO

Top

http://n2.talis.com/wiki/RDF_JSON_Specification

AUTHOR

Top

 Toby Inkster <tobyink@cpan.org>
 Gregory Williams <gwilliams@cpan.org>

COPYRIGHT

Top

Copyright (c) 2010 Toby Inkster. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

RDF-Trine documentation Contained in the RDF-Trine distribution. 
# RDF::Trine::Serializer::RDFJSON
# -----------------------------------------------------------------------------


package RDF::Trine::Serializer::RDFJSON;

use strict;
use warnings;
use base qw(RDF::Trine::Serializer);

use URI;
use Carp;
use JSON;
use Data::Dumper;
use Scalar::Util qw(blessed);

use RDF::Trine::Node;
use RDF::Trine::Statement;
use RDF::Trine::Error qw(:try);

######################################################################

our ($VERSION);
BEGIN {
	$VERSION	= '0.135';
	$RDF::Trine::Serializer::serializer_names{ 'rdfjson' }	= __PACKAGE__;
	foreach my $type (qw(application/json application/x-rdf+json)) {
		$RDF::Trine::Serializer::media_types{ $type }	= __PACKAGE__;
	}
}

######################################################################


sub new {
	my $class	= shift;
	my %args	= @_;
	my $self = bless( {}, $class);
	return $self;
}


sub serialize_model_to_file {
	my $self	  = shift;
	my $file	  = shift;
	my $model  = shift;
	my $opts   = shift;
	my $string = to_json($model->as_hashref, $opts);
	print {$file} $string;
}


sub serialize_model_to_string {
	my $self	  = shift;
	my $model  = shift;
	my $opts   = shift;
	my $string = to_json($model->as_hashref, $opts);
	return $string;
}

1;

__END__