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

  use address_book::Schema;

  my $schema1 = "address_book::Schema";


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


#==========================
# OUTPUT
#==========================

### 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 table names
Source names: 1
Table names: 1