http://qs1969.pair.com?node_id=903558

spx2 has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I'm playing around with Catalyst and since there's this really good module on CPAN called Devel::REPL and an extension for Catalyst called CatalystX::REPL I gave it a spin.

I also had some problems installing Devel::REPL, but I managed to fix that too.

However, I wasn't able to get CatalystX::REPL working after following all the instructions in the documentation. I was just not getting any cursor, Devel::REPL wasn't firing up.

So I had to make my own small hack and so here goes the code I wrote in an action to get a REPL:

use Devel::REPL; ...CATALYST CODE... sub action_name { my ($self,$c) = @_ ... ########### Devel::REPL break $Devel::REPL::Plugin::Packages::DefaultScratchpad::ctx = $c; my $repl = Devel::REPL->new; $repl->load_plugin($_) for qw(History LexEnv Packages PPI); $repl->eval('my $c = $Devel::REPL::Plugin::Packages::DefaultScratch +pad::ctx;'); $repl->eval('warn "\n\n[USE \$c from Catalyst!!]\n\n;";'); $repl->run; ########### .... }
I wanted to ask if there's someone who was able to get CatalystX::REPL working and what settings did you use, maybe there was something I missed.

Thanks,
Stefan