Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Disabling the interpretation of diamond <> operator in package?

by shmem (Chancellor)
on Apr 10, 2018 at 13:13 UTC ( #1212639=note: print w/replies, xml ) Need Help??


in reply to Disabling the interpretation of diamond <> operator in package?

IO::All comes to mind as a module which implemented overloading of "<" and whose technique might work for you. Didn't dig into that though, sorry for laziness.

update: couldnt resist... scratch that:

perl -MIO::All -E 'sub bo {"blorf"} sub ba {"bar"} ba < bo' Unterminated <> operator at -e line 1.

Nope.

To make that work - I fear (just guessing!) - you'll have to go all the way back to perly.c and modify that, fighting with the magic of "<>".

update2: this is bug smell to me.

update3: it looks like in the expression

foo < bar

the foo thingy must resolve to something that doesn't consume what follows it on the right, overloading in effect or not, to be parsed as you want it to be parsed:

$ perl -E 'say < 2' Unterminated <> operator at -e line 1. $ perl -E 'say() < 2' $ perl -E '(say) < 2' $ perl -E 'say scalar(say) < 2' 1 $ perl -E 'sub foo(){1} say foo < 2' 1

So, no. Using the LHS of < as a function which does or does not take arguments isn't possible, I guess.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1212639]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2020-10-01 21:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (22 votes). Check out past polls.

    Notices?