@values = grep $_->is_resource, $self->rdf_get(@_);
wantarray ? @values : $values[0];
}
sub TO_JSON
{
my $self = shift;
$self->fixes if $self->can('fixes');
my $hash = +{ %$self };
delete $hash
, $self->meta->calculate_all_roles_with_inheritance ];
return $hash;
}
sub dump_json
{
require JSON;
JSON::to_json(
shift(),
{ pretty => 1, canonical => 1, convert_blessed => 1 },
);
}
sub i