@@ -1,3 +1,16 @@
+2.143070 2014-11-03 21:12:29 Europe/London
+
+ * [#98448] Remove FATAL => all from warnings import (ANDK)
+
+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.143070"
}
@@ -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.143070
@@ -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.143070",
"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.143070
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,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Controller::AJAX;
{
- $Catalyst::Plugin::AutoCRUD::Controller::AJAX::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Controller::AJAX::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Controller';
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::ExtJS2;
{
- $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::ExtJS2::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::ExtJS2::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Controller';
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::Skinny;
{
- $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::Skinny::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Controller::DisplayEngine::Skinny::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Controller';
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Controller::Root;
{
- $Catalyst::Plugin::AutoCRUD::Controller::Root::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Controller::Root::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Controller';
use Catalyst::Utils;
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Controller::Static;
{
- $Catalyst::Plugin::AutoCRUD::Controller::Static::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Controller::Static::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Controller';
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Model::DBIC;
{
- $Catalyst::Plugin::AutoCRUD::Model::DBIC::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Model::DBIC::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Model::DBIC::Schema';
@@ -1,10 +1,10 @@
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.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
our @EXPORT;
BEGIN {
@@ -1,10 +1,10 @@
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.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
our @EXPORT;
BEGIN {
@@ -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,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC;
{
- $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::Model::StorageEngine::DBIC::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Model';
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::View::JSON;
{
- $Catalyst::Plugin::AutoCRUD::View::JSON::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::View::JSON::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::View::JSON';
@@ -1,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD::View::TT;
{
- $Catalyst::Plugin::AutoCRUD::View::TT::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::View::TT::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::View::TT';
use File::Basename;
@@ -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,10 +1,10 @@
package Catalyst::Plugin::AutoCRUD;
{
- $Catalyst::Plugin::AutoCRUD::VERSION = '2.131210';
+ $Catalyst::Plugin::AutoCRUD::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use MRO::Compat;
use Devel::InnerPackage qw/list_packages/;
@@ -192,7 +192,7 @@ Catalyst::Plugin::AutoCRUD - Instant AJAX web front-end for DBIx::Class
=head1 VERSION
-version 2.131210
+version 2.143070
=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,10 +1,10 @@
package SQL::Translator::AutoCRUD::Quick;
{
- $SQL::Translator::AutoCRUD::Quick::VERSION = '2.131210';
+ $SQL::Translator::AutoCRUD::Quick::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
{
package # hide from toolchain
@@ -1,10 +1,10 @@
package SQL::Translator::AutoCRUD::Utils;
{
- $SQL::Translator::AutoCRUD::Utils::VERSION = '2.131210';
+ $SQL::Translator::AutoCRUD::Utils::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
our @EXPORT;
BEGIN {
@@ -1,10 +1,10 @@
package SQL::Translator::Filter::AutoCRUD::CatalystModel;
{
- $SQL::Translator::Filter::AutoCRUD::CatalystModel::VERSION = '2.131210';
+ $SQL::Translator::Filter::AutoCRUD::CatalystModel::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
sub filter {
my ($schema, @args) = @_;
@@ -1,10 +1,10 @@
package SQL::Translator::Filter::AutoCRUD::ColumnsAndPKs;
{
- $SQL::Translator::Filter::AutoCRUD::ColumnsAndPKs::VERSION = '2.131210';
+ $SQL::Translator::Filter::AutoCRUD::ColumnsAndPKs::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
# PK can be FK so need to unique fields
use List::MoreUtils 'uniq';
@@ -1,10 +1,10 @@
package SQL::Translator::Filter::AutoCRUD::DisplayName;
{
- $SQL::Translator::Filter::AutoCRUD::DisplayName::VERSION = '2.131210';
+ $SQL::Translator::Filter::AutoCRUD::DisplayName::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use Scalar::Util 'blessed';
use SQL::Translator::AutoCRUD::Utils;
@@ -1,10 +1,10 @@
package SQL::Translator::Filter::AutoCRUD::ExtJSxType;
{
- $SQL::Translator::Filter::AutoCRUD::ExtJSxType::VERSION = '2.131210';
+ $SQL::Translator::Filter::AutoCRUD::ExtJSxType::VERSION = '2.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
my %xtype_for = (
boolean => 'checkbox',
@@ -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.143070';
}
# Although AutoCRUD is "safe" for columns of any weird name you like,
@@ -8,7 +8,7 @@ package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::AccessorDisplayN
# to show that as the display name instead of the column's native name.
use strict;
-use warnings FATAL => 'all';
+use warnings;
use SQL::Translator::AutoCRUD::Utils;
@@ -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.143070';
}
# DBIx:Class extensions such as DBIx::Class::TimeStamp or
@@ -9,7 +9,7 @@ package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::DynamicDefault;
# ignores the fields for create and update.
use strict;
-use warnings FATAL => 'all';
+use warnings;
use SQL::Translator::AutoCRUD::Utils;
@@ -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.143070';
}
# The DBIC Relation proxy atribute can be used to import accessors from
@@ -8,7 +8,7 @@ package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ProxyColumns;
# which AutoCRUD will display.
use strict;
-use warnings FATAL => 'all';
+use warnings;
use SQL::Translator::AutoCRUD::Utils;
@@ -1,10 +1,10 @@
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.143070';
}
use strict;
-use warnings FATAL => 'all';
+use warnings;
use Lingua::EN::Inflect::Number;
use SQL::Translator::AutoCRUD::Utils;
@@ -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.143070';
}
# SQLT doesn't provide for proper Field objects in Views
@@ -11,7 +11,7 @@ package SQL::Translator::Filter::AutoCRUD::StorageEngine::DBIC::ViewsAsTables;
# run very early on in the Filter list, if not first.
use strict;
-use warnings FATAL => 'all';
+use warnings;
use SQL::Translator::AutoCRUD::Utils;
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -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__
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use JSON::XS;
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-use warnings FATAL => 'all';
+use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
@@ -1,7 +1,7 @@
package TestApp::Controller::Root;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::Controller';
@@ -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
@@ -1,7 +1,7 @@
package TestApp::View::TT;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use base 'Catalyst::View::TT';
use File::Basename;
@@ -1,7 +1,7 @@
package TestApp;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use DBI;
use File::Temp;
@@ -1,7 +1,7 @@
package TestAppCustomConfig;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use DBI;
use File::Temp;
@@ -1,7 +1,7 @@
package TestAppLoader;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use DBI;
use File::Temp;
@@ -1,7 +1,7 @@
package TestAppM2M;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use DBI;
use File::Temp;
@@ -1,7 +1,7 @@
package TestAppRel;
use strict;
-use warnings FATAL => 'all';
+use warnings;
use DBI;
use File::Temp;