File Coverage

blib/lib/Rose/Conf/Root.pm

Criterion	Covered	Total	%
statement	13	18	72.2
branch	5	8	62.5
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	23	31	74.1

package Rose::Conf::Root;

use strict;

use Carp();

our $VERSION = '0.01';

sub import
{
  my($class, $dir) = @_;

  if(@_ < 2)
  {
    local $Carp::CarpLevel = 0;
    Carp::croak "Usage: use $class '/some/directory'";
  }
  else
  {
    if(defined $dir)
    {
      unless(-d $dir)
      {
        local $Carp::CarpLevel = 0;
        Carp::croak "No such directory: $dir";
      }

      $ENV{'ROSE_CONF_FILE_ROOT'} = $dir;
    }
    else
    {
      delete $ENV{'ROSE_CONF_FILE_ROOT'};
    }
  }
}

sub conf_root
{
  return $ENV{'ROSE_CONF_FILE_ROOT'}  unless(@_ > 1);
  shift->import(@_);
}

1;

__END__