[Bast-commits] r8902 - in DBIx-Class/0.08/branches/pod_fixes: lib/DBIx/Class/InflateColumn t/inflate t/lib t/lib/DBICTest

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-03-06 11:27:28 +0000 (Sat, 06 Mar 2010)
New Revision: 8902

Modified:
   DBIx-Class/0.08/branches/pod_fixes/lib/DBIx/Class/InflateColumn/File.pm
   DBIx-Class/0.08/branches/pod_fixes/t/inflate/file_column.t
   DBIx-Class/0.08/branches/pod_fixes/t/lib/DBICTest/Schema.pm
   DBIx-Class/0.08/branches/pod_fixes/t/lib/sqlite.sql
Log:
Fully deprecate IC::File

Modified: DBIx-Class/0.08/branches/pod_fixes/lib/DBIx/Class/InflateColumn/File.pm
===================================================================
--- DBIx-Class/0.08/branches/pod_fixes/lib/DBIx/Class/InflateColumn/File.pm	2010-03-06 11:26:30 UTC (rev 8901)
+++ DBIx-Class/0.08/branches/pod_fixes/lib/DBIx/Class/InflateColumn/File.pm	2010-03-06 11:27:28 UTC (rev 8902)
@@ -7,6 +7,17 @@
 use File::Copy;
 use Path::Class;
 
+use Carp::Clan qw/^DBIx::Class/;
+carp 'InflateColumn::File has entered a deprecation cycle. This component '
+    .'has a number of architectural deficiencies that can quickly drive '
+    .'your filesystem and database out of sync and is not recommended '
+    .'for further use. It will be retained for backwards '
+    .'compatibility, but no new functionality patches will be accepted. '
+    .'Please consider using the much more mature and actively maintained '
+    .'DBIx::Class::InflateColumn::FS. You can set the environment variable '
+    .'DBIC_IC_FILE_NOWARN to a true value to disable  this warning.'
+unless $ENV{DBIC_IC_FILE_NOWARN};
+
 __PACKAGE__->load_components(qw/InflateColumn/);
 
 sub register_column {
@@ -111,11 +122,13 @@
 
 =head2 Deprecation Notice
 
- This component has a number of architectural deficiencies and is not
- recommended for further use. It will be retained for backwards
- compatibility, but no new functionality patches will be accepted.
- Please consider using the much more mature and actively supported
- DBIx::Class::InflateColumn::FS
+ This component has a number of architectural deficiencies that can quickly
+ drive your filesystem and database out of sync and is not recommended for
+ further use. It will be retained for backwards compatibility, but no new
+ functionality patches will be accepted. Please consider using the much more
+ mature and actively supported DBIx::Class::InflateColumn::FS. You can set
+ the environment variable DBIC_IC_FILE_NOWARN to a true value to disable
+ this warning.
 
 =head1 SYNOPSIS
 

Modified: DBIx-Class/0.08/branches/pod_fixes/t/inflate/file_column.t
===================================================================
--- DBIx-Class/0.08/branches/pod_fixes/t/inflate/file_column.t	2010-03-06 11:26:30 UTC (rev 8901)
+++ DBIx-Class/0.08/branches/pod_fixes/t/inflate/file_column.t	2010-03-06 11:27:28 UTC (rev 8902)
@@ -1,14 +1,19 @@
 use strict;
-use warnings;  
+use warnings;
 
 use Test::More;
 use lib qw(t/lib);
 use DBICTest;
+use DBICTest::Schema;
 use File::Compare;
 use Path::Class qw/file/;
 
-my $schema = DBICTest->init_schema();
+$ENV{DBIC_IC_FILE_NOWARN} = 1;
 
+DBICTest::Schema->load_classes ('FileColumn');
+my $schema = DBICTest::Schema->connect(DBICTest->_database);
+DBICTest->deploy_schema ($schema);
+
 plan tests => 10;
 
 my $rs = $schema->resultset('FileColumn');

Modified: DBIx-Class/0.08/branches/pod_fixes/t/lib/DBICTest/Schema.pm
===================================================================
--- DBIx-Class/0.08/branches/pod_fixes/t/lib/DBICTest/Schema.pm	2010-03-06 11:26:30 UTC (rev 8901)
+++ DBIx-Class/0.08/branches/pod_fixes/t/lib/DBICTest/Schema.pm	2010-03-06 11:27:28 UTC (rev 8902)
@@ -11,7 +11,6 @@
   BindType
   Employee
   CD
-  FileColumn
   Genre
   Link
   Bookmark

Modified: DBIx-Class/0.08/branches/pod_fixes/t/lib/sqlite.sql
===================================================================
--- DBIx-Class/0.08/branches/pod_fixes/t/lib/sqlite.sql	2010-03-06 11:26:30 UTC (rev 8901)
+++ DBIx-Class/0.08/branches/pod_fixes/t/lib/sqlite.sql	2010-03-06 11:27:28 UTC (rev 8902)
@@ -1,6 +1,6 @@
 -- 
 -- Created by SQL::Translator::Producer::SQLite
--- Created on Sat Jan 30 19:18:55 2010
+-- Created on Sat Mar  6 12:26:40 2010
 -- 
 ;
 
@@ -68,14 +68,6 @@
 );
 
 --
--- Table: file_columns
---
-CREATE TABLE file_columns (
-  id INTEGER PRIMARY KEY NOT NULL,
-  file varchar(255) NOT NULL
-);
-
---
 -- Table: fourkeys
 --
 CREATE TABLE fourkeys (