Select Code to Download

for my $user ( $users->all )
{
...
        print join(", ", map { $_->name } $role->role->users);
    }
}

my $full_rs = $schema->resultset("user");
my @ids = $full_rs->get_column("id")->all;
...
             ->search({},{columns => ["id"])
             ->hashref_rs
             ->all;

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

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