for my $user ( $users->all )
{
    print $user->name, $/;
    print "    Roles: ", join(", ", $user->roles) || "none", $/;
    for my $role ( $user->roles )
    {
        print "Users in this role: ";
        print join(", ", map { $_->name } $role->role->users);
    }
}

##</code><code>##

my $full_rs = $schema->resultset("user");
my @ids = $full_rs->get_column("id")->all;

# -or-

my $simple_rs = $full_rs->search({},
                                 { columns => [qw/ id /] });

print $_->id, $/ for $simple_rs->all;

# -or, no objects-

# use parent "DBIx::Class::ResultSet::HashRef"; <- in resultset class.
my $ids = map { $_->{id} }
      $schema->resultset("user")
             ->search({},{columns => ["id"])
             ->hashref_rs
             ->all;

##</code><code>##

printf "\$%.2f\n", $user->orders->get_column("total")->sum;

##</code><code>##

  $schema->resultset("Company")
         ->find($id)
         ->users
         ->active
         ->with_overdue_balance;