dump_fixtures.pl

#!/usr/bin/perl -w

use strict;
use Pod::Usage;
use Getopt::Long;
use File::Spec::Functions;
use FindBin qw/$Bin/;
use Bio::Chado::Schema;
use DBIx::Class::Fixtures;

my $config_dir = catdir( $Bin, updir,  'data', 'config' );
my $config     = 'config.json';
my $dump_dir   = catdir( $Bin, updir,  'data', 'fixtures' );

my $dbname = 'mygmod'; 
my $host = 'localhost';
my $user = 'pass';

GetOptions(
    'h|help'          => sub { pod2usage(1); },
    'cfd|confdir:s'   => \$config_dir,
    'conf|config|c:s' => \$config,
    'ddir|dumpdir:s'  => \$dump_dir,
);

my $chado_schema =
  Bio::Chado::Schema->connect( "DBI:Pg:database=$dbname;host=$host", $user,'' );
my $fixtures = DBIx::Class::Fixtures->new( { config_dir => $config_dir } );
$fixtures->dump(
    {
        config    => $config,
        schema    => $chado_schema,
        directory => $dump_dir,
    }
);