The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 09
LICENSE 33
META.json 4344
META.yml 23
Makefile.PL 12
README 22
lib/Catalyst/Plugin/AutoCRUD/Controller/AJAX.pm 11
lib/Catalyst/Plugin/AutoCRUD/Controller/DisplayEngine/ExtJS2.pm 11
lib/Catalyst/Plugin/AutoCRUD/Controller/DisplayEngine/Skinny.pm 11
lib/Catalyst/Plugin/AutoCRUD/Controller/Root.pm 11
lib/Catalyst/Plugin/AutoCRUD/Controller/Static.pm 11
lib/Catalyst/Plugin/AutoCRUD/Model/DBIC.pm 11
lib/Catalyst/Plugin/AutoCRUD/Model/StorageEngine/DBIC/CRUD.pm 11
lib/Catalyst/Plugin/AutoCRUD/Model/StorageEngine/DBIC/Metadata.pm 22
lib/Catalyst/Plugin/AutoCRUD/Model/StorageEngine/DBIC.pm 11
lib/Catalyst/Plugin/AutoCRUD/View/JSON.pm 11
lib/Catalyst/Plugin/AutoCRUD/View/TT.pm 11
lib/Catalyst/Plugin/AutoCRUD/templates/extjs2/wrapper/head.tt 1211
lib/Catalyst/Plugin/AutoCRUD.pm 33
lib/SQL/Translator/AutoCRUD/Quick.pm 11
lib/SQL/Translator/AutoCRUD/Utils.pm 11
lib/SQL/Translator/Filter/AutoCRUD/CatalystModel.pm 11
lib/SQL/Translator/Filter/AutoCRUD/ColumnsAndPKs.pm 11
lib/SQL/Translator/Filter/AutoCRUD/DisplayName.pm 11
lib/SQL/Translator/Filter/AutoCRUD/ExtJSxType.pm 11
lib/SQL/Translator/Filter/AutoCRUD/StorageEngine/DBIC/AccessorDisplayName.pm 11
lib/SQL/Translator/Filter/AutoCRUD/StorageEngine/DBIC/DynamicDefault.pm 11
lib/SQL/Translator/Filter/AutoCRUD/StorageEngine/DBIC/ProxyColumns.pm 11
lib/SQL/Translator/Filter/AutoCRUD/StorageEngine/DBIC/Relationships.pm 11
lib/SQL/Translator/Filter/AutoCRUD/StorageEngine/DBIC/ViewsAsTables.pm 11
t/13-extjs-cachefly.t 014
t/lib/TestApp/Schema/SleeveNotes.pm 22
32 files changed (This is a version diff) 91116
@@ -1,3 +1,12 @@
+2.142820  2014-10-09 13:26:50 Europe/London
+
+  * [#98954] Fix malformed tests missing foreign/self prefix
+
+2.141940  2014-07-13 10:22:41 Europe/London
+
+  * extjs from the CDN over HTTPS (mendel)
+  * Fix deprecation warning from SQL::Translator
+
 2.131210  2013-05-01 21:12:25 Europe/London
 
   * Support Oracle LIKE syntax properly (tunakermit)
@@ -1,4 +1,4 @@
-This software is copyright (c) 2013 by Oliver Gorwits.
+This software is copyright (c) 2014 by Oliver Gorwits.
 
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@ b) the "Artistic License"
 
 --- The GNU General Public License, Version 1, February 1989 ---
 
-This software is Copyright (c) 2013 by Oliver Gorwits.
+This software is Copyright (c) 2014 by Oliver Gorwits.
 
 This is free software, licensed under:
 
@@ -272,7 +272,7 @@ That's all there is to it!
 
 --- The Artistic License 1.0 ---
 
-This software is Copyright (c) 2013 by Oliver Gorwits.
+This software is Copyright (c) 2014 by Oliver Gorwits.
 
 This is free software, licensed under:
 
@@ -4,7 +4,7 @@
       "Oliver Gorwits <oliver@cpan.org>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112621",
+   "generated_by" : "Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.131560",
    "license" : [
       "perl_5"
    ],
@@ -21,53 +21,54 @@
       },
       "runtime" : {
          "requires" : {
-            "Catalyst::Action::RenderView" : 0,
-            "Catalyst::Controller" : 0,
-            "Catalyst::Model" : 0,
-            "Catalyst::Model::DBIC::Schema" : 0,
-            "Catalyst::Plugin::ConfigLoader" : 0,
-            "Catalyst::Plugin::Unicode::Encoding" : 0,
+            "Catalyst::Action::RenderView" : "0",
+            "Catalyst::Controller" : "0",
+            "Catalyst::Model" : "0",
+            "Catalyst::Model::DBIC::Schema" : "0",
+            "Catalyst::Plugin::ConfigLoader" : "0",
+            "Catalyst::Plugin::Unicode::Encoding" : "0",
             "Catalyst::Runtime" : "5.70",
-            "Catalyst::Utils" : 0,
-            "Catalyst::View::JSON" : 0,
-            "Catalyst::View::TT" : 0,
-            "DBD::SQLite" : 0,
+            "Catalyst::Utils" : "0",
+            "Catalyst::View::JSON" : "0",
+            "Catalyst::View::TT" : "0",
+            "DBD::SQLite" : "0",
             "DBIx::Class" : "0.08127",
-            "DBIx::Class::Schema::Loader" : 0,
-            "Data::Dumper" : 0,
-            "Data::Page" : 0,
-            "Devel::InnerPackage" : 0,
-            "Exporter" : 0,
-            "File::Basename" : 0,
-            "File::Slurp" : 0,
-            "File::stat" : 0,
-            "Lingua::EN::Inflect::Number" : 0,
-            "List::MoreUtils" : 0,
-            "List::Util" : 0,
-            "MRO::Compat" : 0,
-            "SQL::Translator" : 0,
-            "SQL::Translator::Schema" : 0,
-            "SQL::Translator::Schema::Table" : 0,
-            "Scalar::Util" : 0,
-            "base" : 0,
-            "overload" : 0,
-            "strict" : 0,
-            "warnings" : 0
+            "DBIx::Class::Schema::Loader" : "0",
+            "Data::Dumper" : "0",
+            "Data::Page" : "0",
+            "Devel::InnerPackage" : "0",
+            "Exporter" : "0",
+            "File::Basename" : "0",
+            "File::Slurp" : "0",
+            "File::stat" : "0",
+            "JSON" : "2.90",
+            "Lingua::EN::Inflect::Number" : "0",
+            "List::MoreUtils" : "0",
+            "List::Util" : "0",
+            "MRO::Compat" : "0",
+            "SQL::Translator" : "0",
+            "SQL::Translator::Schema" : "0",
+            "SQL::Translator::Schema::Table" : "0",
+            "Scalar::Util" : "0",
+            "base" : "0",
+            "overload" : "0",
+            "strict" : "0",
+            "warnings" : "0"
          }
       },
       "test" : {
          "requires" : {
-            "Catalyst" : 0,
-            "Catalyst::ScriptRunner" : 0,
-            "Class::Data::Inheritable" : 0,
-            "DBI" : 0,
-            "DBIx::Class" : 0,
-            "DBIx::Class::Schema" : 0,
-            "File::Temp" : 0,
-            "JSON::XS" : 0,
-            "Storable" : 0,
-            "Test::More" : 0,
-            "Test::WWW::Mechanize::Catalyst" : 0
+            "Catalyst" : "0",
+            "Catalyst::ScriptRunner" : "0",
+            "Class::Data::Inheritable" : "0",
+            "DBI" : "0",
+            "DBIx::Class" : "0",
+            "DBIx::Class::Schema" : "0",
+            "File::Temp" : "0",
+            "JSON::XS" : "0",
+            "Storable" : "0",
+            "Test::More" : "0",
+            "Test::WWW::Mechanize::Catalyst" : "0"
          }
       }
    },
@@ -83,6 +84,6 @@
          "web" : "https://github.com/ollyg/Catalyst-Plugin-AutoCRUD"
       }
    },
-   "version" : "2.131210"
+   "version" : "2.142820"
 }
 
@@ -17,7 +17,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 6.30
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112621'
+generated_by: 'Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.131560'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -44,6 +44,7 @@ requires:
   File::Basename: 0
   File::Slurp: 0
   File::stat: 0
+  JSON: 2.90
   Lingua::EN::Inflect::Number: 0
   List::MoreUtils: 0
   List::Util: 0
@@ -60,4 +61,4 @@ resources:
   bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Catalyst-Plugin-AutoCRUD
   homepage: https://github.com/ollyg/Catalyst-Plugin-AutoCRUD/wiki
   repository: git://github.com/ollyg/Catalyst-Plugin-AutoCRUD.git
-version: 2.131210
+version: 2.142820
@@ -52,6 +52,7 @@ my %WriteMakefileArgs = (
     "File::Basename" => 0,
     "File::Slurp" => 0,
     "File::stat" => 0,
+    "JSON" => "2.90",
     "Lingua::EN::Inflect::Number" => 0,
     "List::MoreUtils" => 0,
     "List::Util" => 0,
@@ -65,7 +66,7 @@ my %WriteMakefileArgs = (
     "strict" => 0,
     "warnings" => 0
   },
-  "VERSION" => "2.131210",
+  "VERSION" => "2.142820",
   "test" => {
     "TESTS" => "t/*.t"
   }
@@ -2,7 +2,7 @@ NAME
     Catalyst::Plugin::AutoCRUD - Instant AJAX web front-end for DBIx::Class
 
 VERSION
-    version 2.131210
+    version 2.142820
 
 PURPOSE
     You have a database, and wish to have a basic web interface supporting
@@ -673,7 +673,7 @@ AUTHOR
     Oliver Gorwits <oliver@cpan.org>
 
 COPYRIGHT AND LICENSE
-    This software is copyright (c) 2013 by Oliver Gorwits.
+    This software is copyright (c) 2014 by Oliver Gorwits.
 
     This is free software; you can redistribute it and/or modify it under
     the same terms as the Perl 5 programming language system itself.
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Controller::AJAX;
 {
-  $Catalyst::Plugin::AutoCRUD::Controller::AJAX::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Controller::AJAX::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::ExtJS2;
 {
-  $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::ExtJS2::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::ExtJS2::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::Skinny;
 {
-  $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::Skinny::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::Skinny::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Controller::Root;
 {
-  $Catalyst::Plugin::AutoCRUD::Controller::Root::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Controller::Root::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Controller::Static;
 {
-  $Catalyst::Plugin::AutoCRUD::Controller::Static::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Controller::Static::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Model::DBIC;
 {
-  $Catalyst::Plugin::AutoCRUD::Model::DBIC::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Model::DBIC::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::CRUD;
 {
-  $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::CRUD::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::CRUD::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::Metadata;
 {
-  $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::Metadata::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::Metadata::VERSION = '2.142820';
 }
 
 use strict;
@@ -131,7 +131,7 @@ sub schema_metadata {
         $self->_schema_cache->{handles}->{$db}->{model})->schema;
     my $sqlt = SQL::Translator->new(
         parser => 'SQL::Translator::Parser::DBIx::Class',
-        parser_args => { package => $dbic },
+        parser_args => { dbic_schema => $dbic },
         filters => [
             ['AutoCRUD::StorageEngine::DBIC::ViewsAsTables', $dbic],
             ['AutoCRUD::StorageEngine::DBIC::Relationships', $dbic],
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC;
 {
-  $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::View::JSON;
 {
-  $Catalyst::Plugin::AutoCRUD::View::JSON::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::View::JSON::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD::View::TT;
 {
-  $Catalyst::Plugin::AutoCRUD::View::TT::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::View::TT::VERSION = '2.142820';
 }
 
 use strict;
@@ -4,11 +4,15 @@
 <meta http-equiv="Content-Type" content="text/html; charset=[% cpac.g.html_charset OR 'utf-8' | html %]" />
 <title>[% cpac.g.title %][% ' - Powered by ' IF cpac.g.title %][% cpac.g.version %]</title>
 
-[% IF NOT cpac.g.extjs2 %]
-<link rel="stylesheet" type="text/css" href="http://extjs.cachefly.net/ext-2.2/resources/css/ext-all.css" />
-[% ELSE %]
-<link rel="stylesheet" type="text/css" href="[% cpac.g.extjs2 %]/resources/css/ext-all.css" />
-[% END %]
+[%
+    SET extjs_base_uri = cpac.g.extjs2 OR (
+        c.req.secure
+            ? 'https://extjs.cachefly.net/ext-2.2'
+            : 'http://extjs.cachefly.net/ext-2.2'
+    )
+%]
+
+<link rel="stylesheet" type="text/css" href="[% extjs_base_uri %]/resources/css/ext-all.css" />
 
 <link rel="stylesheet" type="text/css" href="[% c.uri_for( c.controller('AutoCRUD::Static').action_for('cpacstatic'), "body.css" ) %]" />
 <link rel="stylesheet" type="text/css" href="[% c.uri_for( c.controller('AutoCRUD::Static').action_for('cpacstatic'), "cpac.css" ) %]" />
@@ -16,13 +20,8 @@
 <link rel="stylesheet" type="text/css" href="[% c.uri_for( c.controller('AutoCRUD::Static').action_for('cpacstatic'), "iefix.css" ) %]" />
 [% END %]
 
-[% IF NOT cpac.g.extjs2 %]
-<script type="text/javascript" src="http://extjs.cachefly.net/ext-2.2/adapter/ext/ext-base.js"></script>
-<script type="text/javascript" src="http://extjs.cachefly.net/ext-2.2/ext-all.js"></script>
-[% ELSE %]
-<script type="text/javascript" src="[% cpac.g.extjs2 %]/adapter/ext/ext-base.js"></script>
-<script type="text/javascript" src="[% cpac.g.extjs2 %]/ext-all.js"></script>
-[% END %]
+<script type="text/javascript" src="[% extjs_base_uri %]/adapter/ext/ext-base.js"></script>
+<script type="text/javascript" src="[% extjs_base_uri %]/ext-all.js"></script>
 
 <script type="text/javascript" src="[% c.uri_for( c.controller('AutoCRUD::Static').action_for('cpacstatic'), "xdatetime.js" ) %]"></script>
 </head>
@@ -1,6 +1,6 @@
 package Catalyst::Plugin::AutoCRUD;
 {
-  $Catalyst::Plugin::AutoCRUD::VERSION = '2.131210';
+  $Catalyst::Plugin::AutoCRUD::VERSION = '2.142820';
 }
 
 use strict;
@@ -192,7 +192,7 @@ Catalyst::Plugin::AutoCRUD - Instant AJAX web front-end for DBIx::Class
 
 =head1 VERSION
 
-version 2.131210
+version 2.142820
 
 =head1 PURPOSE
 
@@ -909,7 +909,7 @@ Oliver Gorwits <oliver@cpan.org>
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2013 by Oliver Gorwits.
+This software is copyright (c) 2014 by Oliver Gorwits.
 
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
@@ -1,6 +1,6 @@
 package SQL::Translator::AutoCRUD::Quick;
 {
-  $SQL::Translator::AutoCRUD::Quick::VERSION = '2.131210';
+  $SQL::Translator::AutoCRUD::Quick::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::AutoCRUD::Utils;
 {
-  $SQL::Translator::AutoCRUD::Utils::VERSION = '2.131210';
+  $SQL::Translator::AutoCRUD::Utils::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::CatalystModel;
 {
-  $SQL::Translator::Filter::AutoCRUD::CatalystModel::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::CatalystModel::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::ColumnsAndPKs;
 {
-  $SQL::Translator::Filter::AutoCRUD::ColumnsAndPKs::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::ColumnsAndPKs::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::DisplayName;
 {
-  $SQL::Translator::Filter::AutoCRUD::DisplayName::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::DisplayName::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::ExtJSxType;
 {
-  $SQL::Translator::Filter::AutoCRUD::ExtJSxType::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::ExtJSxType::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::AccessorDisplayName;
 {
-  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::AccessorDisplayName::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::AccessorDisplayName::VERSION = '2.142820';
 }
 
 # Although AutoCRUD is "safe" for columns of any weird name you like,
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::DynamicDefault;
 {
-  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::DynamicDefault::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::DynamicDefault::VERSION = '2.142820';
 }
 
 # DBIx:Class extensions such as DBIx::Class::TimeStamp or
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ProxyColumns;
 {
-  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ProxyColumns::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ProxyColumns::VERSION = '2.142820';
 }
 
 # The DBIC Relation proxy atribute can be used to import accessors from
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::Relationships;
 {
-  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::Relationships::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::Relationships::VERSION = '2.142820';
 }
 
 use strict;
@@ -1,6 +1,6 @@
 package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ViewsAsTables;
 {
-  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ViewsAsTables::VERSION = '2.131210';
+  $SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ViewsAsTables::VERSION = '2.142820';
 }
 
 # SQLT doesn't provide for proper Field objects in Views
@@ -18,5 +18,19 @@ $mech->content_contains('Hello, World!', 'Hello World page content');
 $mech->content_contains('http://extjs.cachefly.net/',
     "pages are using the ExtJS CacheFly links");
 
+# mimic that the webserver is running behind a reverse proxy that proxies from
+# HTTPS to HTTP
+$mech->default_header('X-Forwarded-For' => '127.0.0.1');
+$mech->default_header('X-Forwarded-Host' => 'localhost');
+$mech->default_header('X-Forwarded-Port' => 443);
+
+# get basic template, no Metadata
+$mech->get_ok('/autocrud/helloworld', 'Get Hello World page (HTTPS)');
+is($mech->ct, 'text/html', 'Hello World page content type (HTTPS)');
+$mech->content_contains('Hello, World!', 'Hello World page content (HTTPS)');
+
+$mech->content_contains('https://extjs.cachefly.net/',
+    "pages are using the ExtJS CacheFly links (HTTPS)");
+
 # warn $mech->content;
 __END__
@@ -21,7 +21,7 @@ __PACKAGE__->add_columns(
   { data_type => "int", is_foreign_key => 1, is_nullable => 0, size => undef },
 );
 __PACKAGE__->set_primary_key("id");
-__PACKAGE__->belongs_to("album_id", "TestApp::Schema::Album", { id => "album_id" });
+__PACKAGE__->belongs_to("album_id", "TestApp::Schema::Album", { "foreign.id" => "self.album_id" });
 __PACKAGE__->add_unique_constraint(['album_id']);
 
 # Created by DBIx::Class::Schema::Loader v0.04999_05 @ 2008-08-03 20:38:57
@@ -31,7 +31,7 @@ __PACKAGE__->add_unique_constraint(['album_id']);
 __PACKAGE__->has_many(
     'nonexistent_things',
     'Nonexistent::Schema::Noggin',
-    { id => 'noggin_id' },
+    { "foreign.id" => 'self.noggin_id' },
 );
 
 # You can replace this text with custom content, and it will be preserved on regeneration