gistfile1.pl

use lib "$ENV{SHOOTOUT}/lib";
use lib "$ENV{SAKILA}";
use lib "$ENV{SAKILA}/DBIx/Class";

use SakSchema;  # mysql  source
use Sak2Schema; # sqlite target

use Sakila::DBH::MySQL;


my $mysql_schema = SakSchema->connect
  (
   sub { Sakila::DBH::MySQL->dbh }, {}
  );

warn $mysql_schema;

my $sqlite_schema = Sak2Schema->connect
  (
   sub { Sakila::DBH::dbh }
  );

warn $sqlite_schema;

my $rs = $mysql_schema->resultset('Actor')->search;

while (my $x = $rs->next) {
    warn $x->first_name;
}