Re: Perl Idioms Explained - ${\$obj->method} and @{[sort @list]}

[Jenda]

Why does noone mention Interpolation.pm?

use Interpolation '=' => 'eval';
print "5 + 6 = $={5+6}\n";
print "a regexp object - ", qr[\b (?: $={MATCHES()} ) \b]x, $/;



use Interpolation '/' => sub {'$' . $Interpolation::builtin{commify}->
+(@_)};
print "The total is $/{530 * 12.25}\n";

use Interpolation 'S:$$*->$' => 'sprintfX';
print <<"*END*";
dfg sdfg sdfg wearg sdfhg esrg dsf
sdf dfg $S{'%.2f %03d'}{37.5}{42} dfgdfg
sdfg sdfgsdfg
*END*
# ouch. I just found a bug in the module.
# for this to work you either have to get version newer than 0.69
# or change the 'sprintfX' to 'sprintfx' on line 51 of Interpolation.p
+m :-(

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature