lib/NonameTV/Path.pm

   1 package NonameTV::Path;
   2
   3 =head1 NAME
   4
   5 NonameTV::Path - Locate different parts of the NonameTV source.
   6
   7 =head1 SYNOPSIS
   8
   9  use NonameTV::Path;
  10
  11  print NonameTV::Path::Root();
  12
  13 =head1 DESCRIPTION
  14
  15 Locates the full path to the directory where NonameTV is located.
  16 This is done based on the location of the NonameTV::Path module.
  17
  18 =cut
  19
  20 use Cwd qw/abs_path/;
  21
  22 my $root;
  23
  24 BEGIN {
  25   my $pathfile = abs_path( $INC{"NonameTV/Path.pm"} );
  26   ( $root ) = ( $pathfile =~ m%(.*)/lib/NonameTV/Path.pm% );
  27   if( not -f "$root/lib/NonameTV/Path.pm" ) {
  28     print STDERR "Failed to find NonameTV installation at $root.\n";
  29     exit 1;
  30   }
  31 }
  32
  33 sub Root {
  34   return $root;
  35 }
  36
  37 sub Templates {
  38   return "$root/templates";
  39 }
  40
  41 1;