Re^3: $. - smarter than you might think

heh.. that makes me think about a $SIG{__DIE__} handler which not only says harshly "Can't do method foo in context bar in file quux line 1024" or such, but prints the 3 lines above and below the error as well...

don't talk nonsense at blah.pl line 23.
  21 learn('nothing');
  22 sub blah (\[&]) {
  23     warn "don't talk nonsense";
> 24     $_[0]->();
  25 } 
  26 sub learn {
  27     my $self->teach(shift);
Can't use string ("bar") as a subroutine ref while "strict refs" in us
+e at blah.pl line 24.
[download]

I discovered this playing with your code, btw. Thanks!

cheers,
--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Comment on Re^3: $. - smarter than you might think Select or Download Code

Replies are listed 'Best First'.
Re^4: $. - smarter than you might think by radiantmatrix (Parson) on Jun 26, 2006 at 15:56 UTC
Ok, I played with your code and came up with a modification of my own: <Reveal this spoiler or all in this thread> Updates: 2006-06-26 : trailing paren crept in, removed -- thanks to shmem for noticing <–radiant.matrix–> A collection of thoughts and links from the minds of geeks The Code that can be seen is not the true Code I haven't found a problem yet that can't be solved by a well-placed trebuchet	[reply] [d/l] [select]
Re^5: $. - smarter than you might think by shmem (Chancellor) on Jun 26, 2006 at 16:23 UTC
Hey, good on ye... it's always nice to see bad hacks smoothened into a reasonable thing. radiantmatrix ++ if $self->($points_left). But! you have an extra ) on line two of your code ;) And if would get picky, I'd rather write `warn +($. == $d ? '>' : ' ')` than `print STDERR`. Flavours :) thx & greets, --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s,/,($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e,e && print}	[reply] [d/l] [select]