Thanks Rob, once again; it's all my fault...
Sisyphus wrote:
>
> ----- Original Message ----- From: "Foo JH" <[EMAIL PROTECTED]>
> .
> .
>> The problem with the code lies in line 25. Error is:
>> Operation """": no method found, argument in overloaded package MyObj at
>> test.pl line 25.
>>
>
> I've changed it slightly - does this help ?
>
> -------------------------------------
> use strict;
> use warnings;
>
> $|=1;
> my $a = MyObj->new;
> my $b = MyObj->new;
> print $a + $b; # prints "\nxxxx\n" (returned by MyAdd)
>
> package MyObj;
> use strict;
> use warnings;
> use overload
> '""' => 'MyStringify',
> '+' => 'MyAdd';
>
> sub new
> {
> my $class = shift;
>
> return bless {},$class;
> }
>
> sub MyAdd
> {
> my ($a,$b) = @_;
> print "ZZ ".$b; # prints "ZZ MyObj=HASH(0xa7897c)"
> return "\nxxxx\n";
> }
>
> sub MyStringify {
> return $_[0];
> }
> -------------------------------------
>
> The print() function stringifies its argument(s), so when you "print
> $b" it wants to stringify $b - and then (for some reason that I can't
> think of) expects the stringification of $b to be overloaded. Since
> there's no such overloading of stringification specified, it then
> complains.
>
> One solutions is to provide an overloaded stringification sub (which
> is what I've done) - though I'm not sure that it stringifies in the
> way that you want. If it doesn't, then simply modify MyStringify to
> return what you want.
>
> Cheers,
> Rob
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
