Mungle/Code/Scalar.pm

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


package Data::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			## $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::Scalar;
9
10			use strict;
11			use warnings;
12
13
14			sub eval {
15			my $self = shift;
16			my $content = shift;
17			my $varnames = shift;
18
19			# use vars @ runtime
20			if ($varnames) {
21			my @evs;
22			my @vars = split(' ', $varnames);
23			foreach my $varname (@vars) {
24			push @evs, "use vars qw( \$$varname );";
25			}
26			my $ev = join("\n", @evs);
27			eval($ev);
28			}
29
30			my $result = eval($content);
31			if ($@) {
32			$self->log($@, 'error');
33			return;
34			}
35			return $result;
36			}
37
38			1;
39			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26