Mungle/Code/Scalar.pm

## ----------------------------------------------------------------------
##  $Id: Scalar.pm,v 1.1 2003/02/18 15:40:07 joko Exp $
## ----------------------------------------------------------------------
##  $Log: Scalar.pm,v $
##  Revision 1.1  2003/02/18 15:40:07  joko
##  + initial commit
##
## ----------------------------------------------------------------------


package Data::Mungle::Code::Scalar;

use strict;
use warnings;


sub eval {
  my $self = shift;
  my $content = shift;
  my $varnames = shift;

  # use vars @ runtime
  if ($varnames) {
    my @evs;
    my @vars = split(' ', $varnames);
    foreach my $varname (@vars) {
      push @evs, "use vars qw( \$$varname );";
    }
    my $ev = join("\n", @evs);
    eval($ev);
  }

  my $result = eval($content);
  if ($@) {
    $self->log($@, 'error');
    return;
  }
  return $result;
}

1;
__END__
1	joko	1.1	## ----------------------------------------------------------------------
2	joko	1.2	## $Id: Scalar.pm,v 1.1 2003/02/18 15:40:07 joko Exp $
3	joko	1.1	## ----------------------------------------------------------------------
4	joko	1.2	## $Log: Scalar.pm,v $
5			## Revision 1.1 2003/02/18 15:40:07 joko
6			## + initial commit
7			##
8	joko	1.1	## ----------------------------------------------------------------------
9
10
11	joko	1.2	package Data::Mungle::Code::Scalar;
12	joko	1.1
13			use strict;
14			use warnings;
15
16
17			sub eval {
18			my $self = shift;
19			my $content = shift;
20			my $varnames = shift;
21
22			# use vars @ runtime
23			if ($varnames) {
24			my @evs;
25			my @vars = split(' ', $varnames);
26			foreach my $varname (@vars) {
27			push @evs, "use vars qw( \$$varname );";
28			}
29			my $ev = join("\n", @evs);
30			eval($ev);
31			}
32
33			my $result = eval($content);
34			if ($@) {
35			$self->log($@, 'error');
36			return;
37			}
38			return $result;
39			}
40
41			1;
42			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26