CPAN::Groonga

package JSON::Hyper;

use 5.008;
use strict;

use JSON::Hyper::Link;

use Carp;
use JSON;
use JSON::Path;
use LWP::UserAgent;
use Scalar::Util qw[blessed];
use Storable qw[dclone];
use URI;
use URI::E

'cpan:TOBYINK';
our $VERSION   = '0.011';
our $DEBUG     = 0;

sub json_ref
{
	return {
		description => 'A hyper schema for the JSON referencing convention',
		links       => [
			{
				href => '{id}

ies => { '$ref' => '#' },
	};
}

sub new
{
	my ($class, $schema) = @_;
	$schema ||= json_ref();
	$schema = from_json($schema) unless ref $schema;
	return bless { schema => $schema, ua => undef } => $c

package JSON::Hyper::Link;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.011';

use strict qw( subs vars );

sub new
{
	my ($class, $self) = @_;
	$self = +{ href => $self } unless ref $self;
	

1;

__END__

=head1 NAME

JSON::Hyper::Link - represents a link found in a JSON document

=head1 DESCRIPTION

This is a tiny object representng a hyperlink found in a JSON document.
You totally have

=head2 Constructor

Generally speaking you don't want to construct these. They're constructed
by JSON::Hyper's C<find_links> method and I can't think of any conceivable
reason why you'd want to const