[Bps-public-commit] r11504 - in SVN-PropDB: . t

[jesse at bestpractical.com]

Author: jesse
Date: Fri Apr  4 19:01:37 2008
New Revision: 11504

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/Makefile.PL
   SVN-PropDB/lib/Prophet/Test.pm
   SVN-PropDB/t/01-dependencies.t

Log:
 r29182 at 68-246-40-124:  jesse | 2008-04-04 13:01:23 -1000
 Dependency fixes


Modified: SVN-PropDB/Makefile.PL
==============================================================================
--- SVN-PropDB/Makefile.PL	(original)
+++ SVN-PropDB/Makefile.PL	Fri Apr  4 19:01:37 2008
@@ -3,18 +3,35 @@
 use inc::Module::Install;
 name('Prophet');
 author('clkao and jesse');
-license('Death and Repudiation');
+license('DeathandRepudiation');
 requires('Params::Validate');
+requires('List::MoreUtils');
 requires('Class::Accessor');
 requires('IPC::Run3');
 requires('Test::Exception');
 requires('Data::UUID');
 requires('Path::Class');
 requires('YAML::Syck');
+requires('Test::Exception');
 requires('Acme::MetaSyntactic');
 requires('UNIVERSAL::require');
-
+requires('App::Cache');
+requires('Class::Data::Inheritable');
+requires('DateTime::Format::HTTP');
+requires('Devel::Gladiator');
+requires('RT::Client::REST');
+requires('RT::Client::REST::Ticket');
+requires('RT::Client::REST::User');
+requires('SVB::Record');
+requires('Term::ReadKey');
 requires('SVN::Core'); # SVN::Repos SVN::Fs SVN::Ra SVN::Delta::Editor SVN::Client SVN::Delta
+features(
+        'Crazy debugging tools' => [
+            -default => 1,
+            recommends => 'Devel::Gladiator'
+        ]
+    );
+
 all_from('lib/Prophet.pm');
 
 WriteAll();

Modified: SVN-PropDB/lib/Prophet/Test.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Test.pm	(original)
+++ SVN-PropDB/lib/Prophet/Test.pm	Fri Apr  4 19:01:37 2008
@@ -45,12 +45,12 @@
     }
 }
 
-use Devel::Gladiator;
 
 sub in_gladiator (&) {
     my $code = shift;
 
     my $types;
+    require "Devel::Gladiator" or die 'Get Devel::Gladiator from http://code.sixapart.com/svn/Devel-Gladiator/trunk/ and harass sky at crucially.net to CPAN it';
     for ( @{ Devel::Gladiator::walk_arena() } ) {
         $types->{ ref($_) }--;
     }

Modified: SVN-PropDB/t/01-dependencies.t
==============================================================================
--- SVN-PropDB/t/01-dependencies.t	(original)
+++ SVN-PropDB/t/01-dependencies.t	Fri Apr  4 19:01:37 2008
@@ -60,7 +60,8 @@
 for ( sort keys %used ) {
     my $first_in = Module::CoreList->first_release($_);
     next if defined $first_in and $first_in <= 5.00803;
-    next if /^(Prophet|inc|t)(::|$)/;
+    next if /^(SVB|Prophet|inc|t)(::|$)/;
+    #warn $_;
     ok( exists $required{$_}, "$_ in Makefile.PL" )
         or diag( "used in ", join ", ", sort keys %{ $used{$_} } );
     delete $used{$_};