I have the following module:

package SomeClass;

use overload 
    '<>' => \&diamond;
    
sub diamond
{ 
    my $self = shift;
    
    if ( wantarray )
    {
        print "wants array\n";
        return $self->handle->getlines;
    }
    else
    {
        print "wants scalar\n";
        return $self->handle->getline;
    }
    
}

#... rest of code
[download]

that gets used like so:

my $f = SomeClass->new ("somefile");
my @f = <$f>; #here I get only one line instead of all
[download]

The problem: In the diamond function wantarray allways returns false, even when the diamond operator is in list context (like in the code above).

Is there anything I can do about this?