2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/03/27 15:17:03 joko |
6 |
|
## namespace fixes for Data::Mungle::* |
7 |
|
## |
8 |
## Revision 1.1 2003/02/18 15:39:41 joko |
## Revision 1.1 2003/02/18 15:39:41 joko |
9 |
## + initial commit |
## + initial commit |
10 |
## |
## |
11 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
12 |
|
|
13 |
|
|
14 |
package Data::Code::Module; |
package Data::Mungle::Code::Module; |
15 |
|
|
16 |
use strict; |
use strict; |
17 |
use warnings; |
use warnings; |
24 |
my $module = shift; |
my $module = shift; |
25 |
my $varnames = shift; |
my $varnames = shift; |
26 |
|
|
27 |
$self->load("/Data/Code/Scalar"); |
$self->load("/Data/Mungle/Code/Scalar"); |
28 |
$self->eval("use $module;", $varnames); |
$self->eval("use $module;", $varnames); |
29 |
|
|
30 |
# FIXME!!! this just works if $varnames contains a single, scalar variable name |
# FIXME!!! this just works if $varnames contains a single, scalar variable name |