my $json = { $self->get_columns };
    my $rs = $self->result_source;
    my @relnames = $rs->relationships;
    RELLOOP: foreach my $relname (@relnames) {
        my $relinfo = $rs->relationship_info($relname);
        next unless defined $relinfo->{attrs}->{accessor};
        my $accessor = $relinfo->{attrs}->{accessor};
        if ($accessor eq "single" and exists $self->{_relationship_data}{$relname}) {
            $json->{$relname} = $self->$relname;
        } else {
            unless (defined $self->{related_resultsets}{$relname}) {
                my $cond = $relinfo->{cond};
                if (ref $cond eq 'HASH') {
                    foreach my $k (keys %{$cond}) {
                        my $v = $cond->{$k};
                        $v =~ s/^self\.//;
                        next RELLOOP unless $self->has_column_loaded($v);

    if ($self->can("json_hint")) {
        my $hint = $self->json_hint;
        my %json = ();
        foreach my $column (@{$hint->{columns}}) {
            $json{$column} = $self->get_column($column);
        }
        foreach my $relname (keys %{$hint->{relations}}) {
            my $key = $hint->{relations}->{$relname};
            $json{$relname} = [ map { $_->$key } $self->$relname ];
        }
        return \%json;
    } else {
        my $json = { $self->get_columns };
        my $rs = $self->result_source;
        my @relnames = $rs->relationships;
        RELLOOP: foreach my $relname (@relnames) {
            my $relinfo = $rs->relationship_info($relname);
            next unless defined $relinfo->{attrs}->{accessor};
            my $accessor = $relinfo->{attrs}->{accessor};
            if ($accessor eq "single" and exists $self->{_relationship_data}{$relname}) {
                $json->{$relname} = $self->$relname;
            } else {
                unless (defined $self->{related_resultsets}{$relname}) {
                    my $cond = $relinfo->{cond};
                    if (ref $cond eq 'HASH') {
                        foreach my $k (keys %{$cond}) {
                            my $v = $cond->{$k};
                            $v =~ s/^self\.//;
                            next RELLOOP unless $self->has_column_loaded($v);
                        }
                    } #!!! TODO: Handle ARRAY conditions
                }
                if (defined $self->related_resultset($relname)->get_cache) {
                    if ($accessor eq "multi") {
                        $json->{$relname} = [ $self->$relname ];
                    } else {
                        $json->{$relname} = $self->$relname;

                } #!!! TODO: Handle ARRAY conditions
            }
            if (defined $self->related_resultset($relname)->get_cache) {
                if ($accessor eq "multi") {
                    $json->{$relname} = [ $self->$relname ];
                } else {
                    $json->{$relname} = $self->$relname;

        return $json;

    return $json;

        entity => $c->model('DB::Users')->find({ 'me.username' => $c->user->username}, {
          columns => [ "me.fullname", "me.emailaddress", "me.username", "userroles.role" ]
        , join => [ "userroles" ]
        , collapse => 1
        })

        entity => $c->model("DB::Users")->find($c->user->username)

# These lines were loaded from '/home/rbvermaa/src/hydra/src/lib/Hydra/Schema/Users.pm' found in @INC.
# They are now part of the custom portion of this file
# for you to hand-edit.  If you do not either delete
# this section or remove that file from @INC, this section
# will be repeated redundantly when you re-create this
# file again via Loader!  See skip_load_external to disable
# this feature.

my %hint = (
    columns => [
        "fullname",
        "emailaddress",
        "username"
    ],
    relations => {
        userroles => "role"
    }
);

sub json_hint {
    return \%hint;
}

use Test::Simple tests => 15;

use Test::Simple tests => 4;
#use Test::Simple tests => 15;

ok($user->{userroles}->[0]->{role} eq "admin", "The root user is an admin");

ok($user->{userroles}->[0] eq "admin", "The root user is an admin");

ok($user->{userroles}->[0]->{role} eq "admin", "The current user is an admin");

ok($user->{userroles}->[0] eq "admin", "The current user is an admin");
=begin comment

=end comment
=cut