Select Code to Download

sub get_var{
   my ($self, $var_name) = @_;
   return eval "\$$var_name";
}

sub get_var{
   my ($self, $var_name) = @_;
   return $self->{eval "\$$var_name"};
}

#!/usr/bin/perl -wl
use strict;
...

print $p->get_class_var('var1');    # -> foo
print $p->get_inst_var( 'var1');    # -> bar