[Bast-commits] r4168 - in DBIx-Class/0.08/trunk: . t/cdbi-t

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2008-03-11 14:29:33 +0000 (Tue, 11 Mar 2008)
New Revision: 4168

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t
Log:
Fix depend on Time::Piece for cdbi

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2008-03-11 11:26:36 UTC (rev 4167)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2008-03-11 14:29:33 UTC (rev 4168)
@@ -33,6 +33,8 @@
 if( -e 'inc/.author' ) {
   build_requires 'DBIx::ContextualFetch';
   build_requires 'Class::Trigger';
+  build_requires 'Time::Piece';
+
   system('pod2text lib/DBIx/Class.pm > README');
 }
 
@@ -41,3 +43,28 @@
 auto_install;
 
 WriteAll;
+
+
+if ($Module::Install::AUTHOR) {
+  # Need to do this _after_ WriteAll else it looses track of them
+  Meta->{values}{build_requires} = [ grep {
+    $_->[0] !~ /
+      DBIx::ContextualFetch |
+      Class::Trigger |
+      Time::Piece
+    /x;
+  } @{Meta->{values}{build_requires}} ];
+
+  my @scalar_keys = Module::Install::Metadata::Meta_TupleKeys();
+  sub Module::Install::Metadata::Meta_TupleKeys {
+    return @scalar_keys, 'resources';
+  }
+  Meta->{values}{resources} = [ 
+    [ 'MailingList', 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class' ],
+    [ 'IRC', 'irc://irc.perl.org/#dbix-class' ],
+  ];
+  Meta->write;
+}
+
+
+

Modified: DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t	2008-03-11 11:26:36 UTC (rev 4167)
+++ DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t	2008-03-11 14:29:33 UTC (rev 4168)
@@ -1,6 +1,11 @@
 #!/usr/bin/perl -w
 
 use strict;
+BEGIN {
+  eval "require Time::Piece";
+  use Test::More skip_all => "Time::Piece required for this test";
+}
+
 use Test::More tests => 12;
 use Test::Warn;