Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^2: Wrong + Right = Even Worse

by choroba (Canon)
on Apr 03, 2014 at 22:20 UTC ( #1081020=note: print w/ replies, xml ) Need Help??


in reply to Re: Wrong + Right = Even Worse
in thread Wrong + Right = Even Worse

But in that case I would have to change all calls in the OO module from subroutine() to main::subroutine().

لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ


Comment on Re^2: Wrong + Right = Even Worse
Select or Download Code
Replies are listed 'Best First'.
Re^3: Wrong + Right = Even Worse
by tobyink (Abbot) on Apr 03, 2014 at 22:41 UTC

    Or ::subroutine() (the main is optional). That seems simpler than changing everything else though, and less hacky than trying to fool %INC (which will probably lead you to a whole bunch of warnings in the redefine category if warnings are enabled).

    use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name
      You can guess - legacy code. No strict, no warnings. I can get almost there with simple
      s/&/::/g

      There would've been no redefine warnings, though. I need the scripts to be read again, because the subroutines are going to a different namespace, therefore nothing gets redefined.

      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2015-07-30 09:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (270 votes), past polls