File Coverage

blib/lib/mylib.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package mylib;

use strict;
use vars qw($VERSION @ISA @EXPORT_OK $Prefix $Bin $Lib $Etc);

$VERSION = "1.02";

require Exporter;
@ISA = ('Exporter');
@EXPORT_OK = qw($Prefix $Bin $Lib $Etc);

use FindBin qw($RealBin);

$Prefix = $Bin = $RealBin;
$Lib = "$Prefix/lib";

unless (-d $Lib) {
    require File::Basename;
    $Prefix = File::Basename::dirname($Prefix);
    $Lib = "$Prefix/lib";
    unless (-d $Lib) {
        die "Can't find lib in either $Bin or $Prefix, stopped";
    }
}

$Etc = "$Prefix/etc";

require lib;
lib->import($Lib);

1;

__END__