lib/SGN/Devel/lib_relative.pm

   1 package SGN::Devel::lib_relative;
   2
   3 =head1 NAME
   4
   5 SGN::Devel::lib_relative - like lib.pm, but also accepts paths
   6 relative to the base directory of the distribution.  Works for
   7 absolute paths too.
   8
   9 =head1 SYNOPSIS
  10
  11 use SGN::Devel::lib_relative '../ITAG/lib', '../Phenome/lib';
  12
  13 =cut
  14
  15 use strict;
  16 use warnings;
  17
  18 use lib;
  19
  20 use Path::Class;
  21
  22 use Catalyst::Utils;
  23
  24 my $home = Catalyst::Utils::home( __PACKAGE__ );
  25
  26 sub import {
  27     my $class = shift;
  28     lib->import(
  29         map dir( $_ )->absolute( $home )->stringify,
  30         @_
  31        );
  32 }