[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Bundled.pm

package DBIx::Class::Bundled;

use strict;
use warnings;
use File::Spec;

our $HERE = File::Spec->catdir(
              File::Spec->rel2abs(
                join '', (File::Spec->splitpath(__FILE__))[0,1]
              ),
              'Bundled'
            );

($HERE) = ($HERE =~ /^(.*)$/); # screw you, taint mode

sub import {
  unshift @INC, $HERE;
}

1;
Commit	Line	Data
f4a8b21e	1	package DBIx::Class::Bundled;
	2
	3	use strict;
	4	use warnings;
	5	use File::Spec;
	6
	7	our $HERE = File::Spec->catdir(
	8	File::Spec->rel2abs(
	9	join '', (File::Spec->splitpath(__FILE__))[0,1]
	10	),
	11	'Bundled'
	12	);
	13
	14	($HERE) = ($HERE =~ /^(.*)$/); # screw you, taint mode
	15
	16	sub import {
	17	unshift @INC, $HERE;
	18	}
	19
	20	1;