TheSchwartz::Schema (and auto-deployment stub)

Published · Sunday, 22 March 2009 (Updated · 28 July 2009)

Note: this won’t work as currently posted. See this article instead: Catalyst Model #9: TheSchwartz.

Here’s the code: TheSchwartz-Schema.tgz. See also DBIx::Class, DBIx::Class::Schema::Loader, and TheSchwartz.

Contents–

TheSchwartz/
TheSchwartz/Schema/
TheSchwartz/Schema/Result/
TheSchwartz/Schema/Result/Error.pm
TheSchwartz/Schema/Result/Exitstatus.pm
TheSchwartz/Schema/Result/Funcmap.pm
TheSchwartz/Schema/Result/Job.pm
TheSchwartz/Schema/Result/Note.pm
TheSchwartz/Schema.pm
deploy.pl

And in case you want a preview before buying the free beer. This is what the deploy script/stub looks like–

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use TheSchwartz::Schema;

die "Give DB connection args! E.g.:\n",
         "     dbi:SQLite:job_queue.sqlt\n"
         unless @ARGV;

my $schema = TheSchwartz::Schema->connect(@ARGV);
$schema->deploy;


digg stumbleupon del.icio.us reddit Fark Technorati Faves

« How to force NULL values into empty or undefined fields via DBIx::Class · tcsh alias to get the version of a Perl module »
« Perl resources, modules, and sample code »