Someone

#!/usr/bin/perl
use strict;
use warnings;

  use address_book::Schema;

  my $schema1 = "address_book::Schema";


  print "\n\nTest to get moniker names\n";
  my @source_names = $schema1->sources;
  print "Source names: @source_names \n";

  print "\n\nTest to get table names\n";
  my @table_names = map { $schema1->source($_)->from } @source_names;
  print "Table names: @table_names \n";

  print "\n\nTest select all \n";
  my $rs = $schema1->resultset('Address');

  my $rec;
  while ($rec = $rs->next) {
    print get_name($rec) . "\n";
  }


  print "\n\nTest record search \n";
  $rs = $schema1->resultset('Address')->search({first => 'Thomas'});
  print get_name($rs->first);

  print "\n\nFinished\n";


sub get_name {
  my $rec = shift;
    my $name = $rec->first ;
    $ name .= " " . $rec->middle if $rec->middle;
    $ name .= " " . $rec->last if $rec->last;
    return $name;
}



#==============================
# OUTPUT
#==============================
[frankg@romeo address_book]$ perl -Ilib t/mytest.pl
### START DBIx::Class::Schema::Loader dump ###
# Initializing table "address" as "address_book::Schema::Address"
address_book::Schema::Address->table('address');
address_book::Schema::Address->add_columns('id', 'first', 'middle', 'last', 'address1', 'address2', 'address3', 'city', 'state', 'zip')
address_book::Schema::Address->set_primary_key('id')
### END DBIx::Class::Schema::Loader dump ###


Test to get moniker names
Source names: Address


Test to get table names
Table names: address


Test select all
Frank F Gutierrez
George H Hernandez
Sam W Chu
Thomas G Menow


Test record search
Thomas G Menow

Finished