From: Jess Robinson <castaway@desert-island.me.uk>
Date: Wed, 1 Feb 2006 10:44:46 +0000 (+0000)
Subject: Allow usage of --package for the schema name
X-Git-Tag: v0.05005~63
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bddbe61c07c1466bec077db22a7a1efe5a471d48;p=dbsrgits%2FDBIx-Class.git

Allow usage of --package for the schema name
---

diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm
index 6225724..3c75cbf 100644
--- a/lib/SQL/Translator/Parser/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -28,6 +28,7 @@ sub parse {
     my ($tr, $data) = @_;
     my $args        = $tr->parser_args;
     my $dbixschema  = $args->{'DBIx::Schema'} || $data;
+    $dbixschema   ||= $args->{'package'};
     
     die 'No DBIx::Schema' unless ($dbixschema);
     if (!ref $dbixschema) {