develooper Front page | perl.perl5.porters | Postings from November 2003

Re: Guess what this does...

Thread Previous
From:
SADAHIRO Tomoyuki
Date:
November 7, 2003 23:58
Subject:
Re: Guess what this does...
Message ID:
20031108165731.B190.BQW10602@nifty.com

On Fri, 7 Nov 2003 21:18:47 -0800
Brian Ingerson <ingy@ttul.org> wrote:

>     'segfault' . Segfault->new('segfault');
>     package Segfault;
>     use overload '""' => sub { 'segfault' . shift };
>     sub new { bless {segmentation => 'fault'}, $_[0] }
> 
> Cheers, Brian

'segfault'.shift ==> 'segfault'.('segfault'.shift) ==> 
'segfault'.('segfault'.('segfault'.shift)) =======> ????

overload::StrVal() would be necessary.

#!perl
warn 'segfault1' . Segfault->new('segfault2');
package Segfault;
use overload '""' => sub { 'segfault3' . overload::StrVal(shift) };
sub new { bless {segmentation => 'fault'}, $_[0] }
__END__
segfault1segfault3Segfault=HASH(0x15551e4) at test.pl line 2.

Regards
SADAHIRO Tomoyuki


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About