File Coverage

blib/lib/Seis.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Seis;
use strict;
use warnings;

use 5.010001;

our $VERSION = "0.12";

use Seis::Exceptions;
use Seis::Compiler;
use Seis::Array;
use Seis::Bool;
use File::Spec;
use File::ShareDir ();

my $compiler = Seis::Compiler->new();

@Seis::INC = do {
    my @inc;
    unshift @inc, '.';
    unshift @inc, 'share/seislib/' if -d 'share/seislib/'; # while building?
    eval {
        unshift @inc, File::Spec->catdir(File::ShareDir::dist_dir('Seis'), 'seislib');
    };
    if (my $env = $ENV{PERL_SEIS_LIB}) {
        unshift @inc, split /:/, $ENV{PERL_SEIS_LIB};
    }
    @inc;
};

unshift @INC, sub {
    my ($self, $fname) = @_;
    for my $inc (@Seis::INC) {
        my $real = File::Spec->catfile($inc, $fname);
        next unless -f $real;

        open my $fh, '<', $real or die $!;
        my $code = do { local $/; <$fh> };
        my $compiled = $compiler->compile($code, $real) . ";1;";
        open my $tmpfh, '<', \$compiled;
        return $tmpfh;
    }
    return;
};


1;
__END__