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 TomoyukiThread Previous