org/netfrag/preambel.pm

## ---------------------------------------------------------------------------
##  $Id: releaseMe.pl,v 1.1 2003/01/20 21:22:18 joko Exp $
## ---------------------------------------------------------------------------
##  $Log: releaseMe.pl,v $
## ---------------------------------------------------------------------------


package org::netfrag::preambel;

use strict;
use warnings;

# determine and set 'libpath' at runtime, but before execution
my $libpath;
BEGIN {
  use FindBin qw($Bin);
  $libpath = "$Bin/../../../libs";
}

# use '$libpath' path to look for additional modules
use lib $libpath;

1;
1	joko	1.1	## ---------------------------------------------------------------------------
2			## $Id: releaseMe.pl,v 1.1 2003/01/20 21:22:18 joko Exp $
3			## ---------------------------------------------------------------------------
4			## $Log: releaseMe.pl,v $
5			## ---------------------------------------------------------------------------
6
7
8			package org::netfrag::preambel;
9
10			use strict;
11			use warnings;
12
13			# determine and set 'libpath' at runtime, but before execution
14			my $libpath;
15			BEGIN {
16			use FindBin qw($Bin);
17			$libpath = "$Bin/../../../libs";
18			}
19
20			# use '$libpath' path to look for additional modules
21			use lib $libpath;
22
23			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26