The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

DBIx::Cookbook::Recipe::Searching::specific_columns - retrieving specific columns

DESCRIPTION

Output the results of the query

SELECT first_name, last_name FROM actor

Sample Usage:

shell> ${orm}_cmd specific_columns  # orm = dbic, skinny, rose, etc

RECIPES

DBIx::Class

package DBIx::Cookbook::DBIC::Command::specific_columns;
use Moose;
extends qw(MooseX::App::Cmd::Command);

use Data::Dump;

sub execute {
  my ($self, $opt, $args) = @_;

  my $where = {};
  my $attr = { columns => [qw(first_name last_name)] };
  my $rs = $self->app->schema->resultset('Actor')->search($where, $attr);

  my $row = $rs->first;

  my %data = $row->get_columns;
  warn Data::Dump::dump(\%data);

}

1;