Hello everyone,
I am using Class::InsideOut and am looping through some params passed
and need to set their accessors (identified by the keys passed into my
class), but the following code isn't working.
Not sure why eval isn't working. Nothing is returned if I print $@
after the eval statement.
Note that 'page_number' is an accessor.
my $string = "\$${obj_key}{id \$self} = \$meta{\$k};";
print "$string\n"; # when printed is: $page_number{id $self} = $meta{$k};
eval $string;
$page_number{id $self} = $meta{$k}; # works just fine if run like this inline
I'm not sure what I'm doing wrong.
Can anyone see the mistake(s) I'm making?
Thanks,
Kevin
--
Kevin Old
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
