package DBIx::Class::StartupCheck;
-use strict;
+# Temporary - tempextlib
use warnings;
+use strict;
+use namespace::clean;
+BEGIN {
+ # There can be only one of these, make sure we get the bundled part and
+ # *not* something off the site lib
+ for (qw(
+ Sub::Quote
+ )) {
+ (my $incfn = "$_.pm") =~ s|::|/|g;
+
+ if ($INC{$incfn}) {
+ die "\n\t*TEMPORARY* TRIAL RELEASE REQUIREMENTS VIOLATED\n\n"
+ . "Unable to continue - a part of the bundled templib contents "
+ . "was already loaded (likely an older version from CPAN). "
+ . "Make sure that @{[ __PACKAGE__ ]} is loaded before $_\n"
+ . "\nUsually it is sufficient to add PERL5OPT=\"-M@{[ __PACKAGE__ ]}\" "
+ . "to your environment in order to resolve this problem\n"
+ . "\n\tThis is temporary and *WILL NOT* be necessary for the official "
+ . "DBIC release\n\n"
+ ;
+ }
+ }
+
+ require File::Spec;
+ our ($HERE) = File::Spec->rel2abs(
+ File::Spec->catdir( (File::Spec->splitpath(__FILE__))[1], '_TempExtlib' )
+ ) =~ /^(.*)$/; # screw you, taint mode
+
+ die "TempExtlib $HERE does not seem to exist - perhaps you need to run `perl Makefile.PL` in the DBIC checkout?\n"
+ unless -d $HERE;
+
+ unshift @INC, $HERE;
+}
1;