Re: Moo From Hell #1: How to proxy a sub from a non OO module

I can't test this ATM, it's just a guess, but why not something like:

package Utils;

...;
use List::MoreUtils ();  # note empty optional import list
...;

...;

sub uniq {
    my $self   = shift;
    # fully qualify List::MoreUtils function
    my @result = List::MoreUtils::uniq @{ $self->list };
    wantarray ? @result : scalar @result;
    }

...

1;

# And the script:

...
use Karl;
...

...
my $uniq = $nose->uniq;
...
[download]

Update: (Update: And a bit OT:) Does Moo interfere with the propagation of context in some way I'm not aware of? If not, the return statement of my_uniq() in the OPed code
wantarray ? @result : scalar @result;
would seem to return exactly what would be returned anyway in list or scalar context by just returning an array, i.e., the same as a
return @result;
statement. It makes no particular difference, but I was just curious.

Give a man a fish: <%-(-(-(-<

Comment on Re: Moo From Hell #1: How to proxy a sub from a non OO module Select or Download Code

Replies are listed 'Best First'.
Re^2: Moo From Hell #1: How to proxy a sub from a non OO module by karlgoethebier (Abbot) on Aug 02, 2015 at 18:06 UTC
"...why not something like..." Yes sure. I tried i already. Because of... `karls-mac-mini:MyMoo karl$ ./run.pl Prototype mismatch: sub Utils::uniq (@) vs none at Utils.pm line 20. Compilation failed in require at /Users/karl/perl5/perlbrew/perls/perl +-5.20.0threads/lib/site_perl/5.20.0/Module/Runtime.pm line 317. Compilation failed in require at ./run.pl line 7. BEGIN failed--compilation aborted at ./run.pl line 7.` [download] ...what i don't understand (for the moment). OK, I should have mentioned it...sorry. Best regards and thanks for advice, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l]
Re^3: Moo From Hell #1: How to proxy a sub from a non OO module by BrowserUk (Patriarch) on Aug 02, 2015 at 18:19 UTC
Prototype mismatch: sub Utils::uniq (@) vs none at Utils.pm line 20. You're importing uniq() and then redefining it; hence the error. Instead, don't import it: `use List::MoreUtils ();` [download] Then call it fully qualified: `my @result = List::MoreUtils::uniq @{ $self->list };` [download] Anyone got any experience of this phone's predecessor? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice. I'm with torvalds on this Agile (and TDD) debunked I told'em LLVM was the way to go. But did they listen!	[reply] [d/l] [select]
Re^4: Moo From Hell #1: How to proxy a sub from a non OO module by karlgoethebier (Abbot) on Aug 02, 2015 at 18:47 UTC
This works! Some might say that this issue was obvious ;-) Thanks for advice BrowserUK and best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply]
Re^5: Moo From Hell #1: How to proxy a sub from a non OO module by Your Mother (Archbishop) on Aug 02, 2015 at 20:16 UTC
Re^6: Moo From Hell #1: How to proxy a sub from a non OO module by karlgoethebier (Abbot) on Aug 02, 2015 at 20:54 UTC
Some notes below your chosen depth have not been shown here
Re^2: Moo From Hell #1: How to proxy a sub from a non OO module by karlgoethebier (Abbot) on Aug 02, 2015 at 18:12 UTC
"...Does Moo interfere with the propagation of context in some way..." I guess it doesn't. Same behavior without `wantarray`. Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l]