package Test; use strict; sub new { my ($caller, @args) = @_; return bless {}, $caller || ref($caller); } sub test1 { print "Worked from 1\n"; } sub test2 { print "Worked from 2\n"; } package main; use Test; my $tes = new Test; my $rf = { test1 => 'test1', test2 => 'test2', }; no strict 'refs'; no strict 'subs'; $tes->$rf->{test1}();
In reply to calling subs using references. by opensourcer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |