File Coverage

blib/lib/File/Box.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package File::Box;

use 5.006; use strict; use warnings;

our $VERSION = '0.01';

use FindBin;

use File::Basename qw(dirname);

use Path::Class;

use Class::Maker qw(:all);

Class::Maker::class
{
    public =>
    {
        string => [qw( mother_file boxdir )],

	hash => [qw( env )],
    },
};

sub _preinit : method
{
    my $this = shift;


    $this->boxdir( '.box' );

    $this->mother_file( __FILE__ );
}

sub _postinit : method
{
    my $this = shift;

    $this->env( { $this->env,

		       HOME => $this->path_home,

		       LOCAL => $this->path_local,
		   }
		   );
}

sub path_home : method
{
    my $this = shift;


    my $this_file = $this->mother_file;

    $this_file =~ s/\.pm$//gi;

    my $dir = Path::Class::Dir->new( $this_file );

    return Path::Class::Dir->new( $dir, $this->boxdir );
}

sub path_local : method
{
    my $this = shift;


return "$FindBin::Bin";
}

sub request : method
{
    my $this = shift;

    my $name = shift;

    my $path = shift;


    if( not defined($path) )
    {
	$path = $this->path_home;
    }
    elsif( $path =~ /^__/ )
    {
	$path =~ s/^__//;

	if( exists $this->env->{$path} )
	{
	    $path = $this->env->{$path};
	}
	else
	{
	    Carp::croak "$this->request: Not in 'env': '$path'. Already in 'env' are only ", join( ', ', keys %{ $this->env } );

	      return undef;
	}
    }

    Carp::croak 'only FILE|SCALAR are allowed for type' and return undef unless $path;

return Path::Class::File->new( $path, $name );
}

1;

__END__