Front page | perl.perl5.porters |
Postings from November 2003
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