view release on metacpan or  search on metacpan

bin/bpmengine-spawn  view on Meta::CPAN

    unlink './t/var/bpmengine.test.db' if -f './t/var/bpmengine.test.db';
    die("Test db locked") if -f './t/var/bpmengine.test.db';
    File::Copy::copy('./t/var/bpmengine.db', './t/var/bpmengine.test.db');

    print "Schema deployed as ./t/var/bpmengine.db\n";
    }
else {
    pod2usage(1);
    }
        
#$schema->storage->backup('./var') if $connect_info[0] =~ /SQLite/;
$schema->storage->disconnect if $connect_info[0] =~ /mysql/;


1;
__END__

=pod

=head1 NAME