view release on metacpan or  search on metacpan

lib/JSON/Hyper.pm  view on Meta::CPAN

		fragmentResolution   => 'dot-delimited',
		additionalProperties => { '$ref' => '#' },
	};
}

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

sub schema
{
	my ($self) = @_;
	return $self->{'schema'};
}

sub ua
{

lib/JSON/Hyper/Link.pm  view on Meta::CPAN

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

use strict qw( subs vars );

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

my @attr = qw/
	href
	rel
	targetSchema
	method
	enctype
	schema
	properties