use Data::Visitor::Callback qw();
use failures qw(Data::HAL::InvalidJSON);
use HTTP::Headers::Util qw(join_header_words);
use JSON qw();
use Moo; # has
use Safe::Isa qw($_isa);
use Scalar::Util qw(re
g;
return;
}
sub from_json {
my ($self, $json, $relation) = @_;
my $nested = clone JSON::from_json($json);
failure::Data::HAL::InvalidJSON->throw('not a JSON object') unless reftype $
my (undef, $val) = @_;
if (JSON::is_bool($val)) {
$val = false if $val == JSON::false;
$val = true if $val == JSON::true;
}
return
olean qw(false true);
use Data::HAL::URI qw();
use HTTP::Headers::Util qw(join_header_words);
use JSON qw();
use Log::Any qw($log);
use MIME::Type qw();
use Moo; # has
use Safe::Isa qw($_can $_isa);
u
tf.org/html/draft-kelly-json-hal#section-8.2>
=head3 C<href>
Type L<Data::HAL::URI>, B<required>,
L<link target URI or URI template|http://tools.ietf.org/html/draft-kelly-json-hal#section-5.1>
=hea
json-hal#section-5.2 >>
Perl boolean values are coerced to the L<boolean> type.
=head3 C<type>
Type L<MIME::Type>,
L<< media type of the C<href> resource|http://tools.ietf.org/html/draft-kelly-json