package DoStuff;

use Moose;
use IO::All;

has ‘func’ => (is => ‘rw’);

sub BUILD {
my $self = shift;
local *do_stuff = sub (&) { $self->func($_[0]); };
eval io(‘config’)->slurp;
}

sub run_func { shift->func->(); }

Wonderful thing, modern perl.

I think it would be good if you read up on the Wikipedia entry on DSLs (http://en.wikipedia.org/wiki/Domain-specific_programming_language). Since I’m not sure what formatting is allowed here, I wrote up a journal entry on use.perl (http://use.perl.org/~Ovid/journal/34010).

Cheers,
Ovid

Please to be reading TFM

Hint : perldoc -f do.

Aristotle ( http://use.perl.org/~Aristotle/journal/34004)couldn‘t be bothered to jump through the hoops of registration and logging in just to correct such a silly mistake, but it’s monday morning and the Tax man and a slow paying client have annoyed me already so I’m cranky.

Also – more importantly than remembering to RTFM, is to not be dynamically eval’ing in the first place – ick! I have to agree with Aristotle on both counts here.

From the filename, I’d suggest you want to be reading a nice configuration file using one of the nice modules on CPAN. Lately I’ve been using Config::Context, which gives me Apache style per host and directory configuration – incredibly handy for my Perl MVC application so I can deploy a web application once, but with configuration per host and path. Sweet as!