$invoke =~ s/$type\:\:/\$class\-\>/g;				

##</code><code>##

my $val;
my $statement = "\$val = $invoke";
warn "EVAL:\n $statement\n" if (qw/DEBUG/);
eval $statement;