File Coverage

blib/lib/Apache2/ASP/ConfigFinder.pm

Criterion	Covered	Total	%
statement	13	18	72.2
branch	1	6	16.6
condition	1	3	33.3
subroutine	4	4	100.0
pod	1	1	100.0
total	20	32	62.5

package Apache2::ASP::ConfigFinder;

use strict;
use warnings 'all';
use Cwd 'cwd';

our $CONFIGFILE = 'apache2-asp-config.xml';

#==============================================================================
sub config_path
{
  my $path = $CONFIGFILE;

  my $root = $ENV{DOCUMENT_ROOT} || cwd();

  # Try test dir:
  if( -f "$root/t/conf/$CONFIGFILE" )
  {
    return "$root/t/conf/$CONFIGFILE";
  }# end if()

  # Start moving up:
  for( 1...10 )
  {
    my $path = "$root/conf/$CONFIGFILE";
    return $path if -f $path;
    $root =~ s/\/[^\/]+$//
      or last;
  }# end for()

  die "CANNOT FIND '$CONFIGFILE' anywhere under '$root'";
}# end config_path()

1;# return true:

__END__