lib/DBIx/Class/Bundled.pm

   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;