@@ -19,8 +19,11 @@ requires('Class::Trigger'); requires('List::Util'); recommends('Text::SimpleTable'); build_requires('Test::Exception'); -build_requires('UNIVERSAL::require'); -build_requires('Cache::Memory'); + +# Cache::Memory isn't in Debian, and the tests all SKIP if this isn't here anyway, +# so it's more of a build_recommends than a build_requires, but that doesn't exist, +# so.... commented out: +# build_recommends('Cache::Memory'); auto_include(); auto_install(); Makefile.PL @@ -5,7 +5,6 @@ use base qw( Data::ObjectDriver::Driver::Partition ); use Carp qw( croak ); use Data::Dumper; -use UNIVERSAL::require; sub init { my $driver = shift; @@ -20,11 +19,12 @@ sub init { sub _make_get_driver { my($class, $extra) = @_; $extra ||= []; - + ## Make sure we've loaded the parent class that contains information ## about our partitioning scheme. - $class->require; - + croak "Bogus classname." unless $class =~ /^[\w:]+$/; + "eval $class; 1;" or die "Failed to load parent class: $@\n"; + my $col = $class->primary_key_tuple->[0]; my $get_driver = $class->properties->{partition_get_driver} or croak "Partitioning driver not defined for $class"; lib/Data/ObjectDriver/Driver/SimplePartition.pm 95027a0ba12216cdf7c39d6599a53f66e01b3d47 Brad Fitzpatrick brad@danga.com http://github.com/yannk/perl-data-objectdriver/commit/606332bdbabcadb50ce0091c11da0fcc35c43de3 606332bdbabcadb50ce0091c11da0fcc35c43de3 2006-08-22T21:24:58-07:00 2006-08-22T21:24:58-07:00 remove silly dependencies. ben gave me permission. :) git-svn-id: http://code.sixapart.com/svn/Data-ObjectDriver/trunk@260 0a5942b2-ea12-0410-bdf5-ad0023d57db4 3f27fd2d891cd06d038dae189cf6d576357a1345 Brad Fitzpatrick brad@danga.com