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	## ----------------------------------------------------------------------
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