Re^3: Writing automatic code from sql

So just use

use strict;
my ($package,$sub,@params) = ("MyPackage","hello_world",'Hello','World
+');
$package->$sub(@params);

package MyPackage;
use strict;
sub hello_world {
    my ($self,@args)=@_;
    print "In My Package: $_\n" for @args;
};
[download]

Comment on Re^3: Writing automatic code from sql Download Code

Replies are listed 'Best First'.
Re^4: Writing automatic code from sql by speckled (Novice) on Oct 11, 2011 at 13:28 UTC
Here's the code that works: `my %h; while(my $r = $st->fetchrow_hashref()) { my $mod = $r->{'Module'}; my $sub = $r->{'Subroutine'}; my $par = $r->{'Params'}; $h{$r->{'VarName'}} = sub { $mod->$sub(eval "$par"); }; }` [download] You've got my +! Thanks again.	[reply] [d/l]
Re^5: Writing automatic code from sql by Corion (Patriarch) on Oct 11, 2011 at 13:32 UTC
This is basically what DBIx::VersionedSubs::Hash does, except it also allows you to dynamically load newer versions from the database.	[reply]