Mungle/Code/Module.pm

## ----------------------------------------------------------------------
##  $Id: Ref.pm,v 1.1 2003/01/22 17:59:22 root Exp $
## ----------------------------------------------------------------------
##  $Log: Ref.pm,v $
## ----------------------------------------------------------------------


package Data::Code::Module;

use strict;
use warnings;


use Data::Dumper;

sub eval_vars {
  my $self = shift;
  my $module = shift;
  my $varnames = shift;

  $self->load("/Data/Code/Scalar");
  $self->eval("use $module;", $varnames);

  # FIXME!!! this just works if $varnames contains a single, scalar variable name
  # enhance this (Data::Code::Module) and/or Data::Code::Scalar to get this working properly!!!
  my $result = $self->eval("return \$$varnames;");
  
  # trace
    #print Dumper($result);
    #exit;

  return $result;

}

1;
__END__
1	## ----------------------------------------------------------------------
2	## $Id: Ref.pm,v 1.1 2003/01/22 17:59:22 root Exp $
3	## ----------------------------------------------------------------------
4	## $Log: Ref.pm,v $
5	## ----------------------------------------------------------------------
6
7
8	package Data::Code::Module;
9
10	use strict;
11	use warnings;
12
13
14	use Data::Dumper;
15
16	sub eval_vars {
17	my $self = shift;
18	my $module = shift;
19	my $varnames = shift;
20
21	$self->load("/Data/Code/Scalar");
22	$self->eval("use $module;", $varnames);
23
24	# FIXME!!! this just works if $varnames contains a single, scalar variable name
25	# enhance this (Data::Code::Module) and/or Data::Code::Scalar to get this working properly!!!
26	my $result = $self->eval("return \$$varnames;");
27
28	# trace
29	#print Dumper($result);
30	#exit;
31
32	return $result;
33
34	}
35
36	1;
37	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26