Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: override CORE sub and keep method in same package

by BrowserUk (Pope)
on Oct 14, 2013 at 20:53 UTC ( #1058209=note: print w/ replies, xml ) Need Help??


in reply to override CORE sub and keep method in same package

Have you seen/tried Overriding-Built-in-Functions?


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".
In the absence of evidence, opinion is indistinguishable from prejudice.


Comment on Re: override CORE sub and keep method in same package
Re^2: override CORE sub and keep method in same package
by bulk88 (Priest) on Oct 14, 2013 at 23:35 UTC
    Yes. "CORE::GLOBAL::" is too aggressive. It is process wide supposedly.

      Update: I assuming from your typically terse description that you goal is to override the function of the built-in select only within the IO::Select module without overriding the select method it presents to its callers.

      If that is not the case, perhaps you could clarify your requirements?

      Yes. "CORE::GLOBAL::" is too aggressive.

      Hm. The CORE::GLOBAL discussion is only a one part of the discussion referenced.

      There is also use REGlob 'glob';            # override glob() in Foo:: only, amongst others.

      But, to answer your specific problem, I'd suggest adding:

      sub yourSelect { ... } sub select { local *CORE::GLOBAL::select = *yourSelect; shift if defined $_[0] && !ref($_[0]); my($r,$w,$e,$t) = @_; my @result = (); my $rb = defined $r ? $r->[VEC_BITS] : undef; my $wb = defined $w ? $w->[VEC_BITS] : undef; my $eb = defined $e ? $e->[VEC_BITS] : undef; if(select($rb,$wb,$eb,$t) > 0) ################################################ }

      Wherever select is used in IO::Select. Make it conditional if appropriate.


      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".
      In the absence of evidence, opinion is indistinguishable from prejudice.
        You guessed right. Unfortunately I have to change something in the existing method subs, for all the solutions presented here. So I might as well just replace all calls to builtin select in each method with a select2 I defined. Checking if the first arg is blessed is another solution which probably would have been cleaner then putting select2 everywhere.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2014-09-01 15:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (14 votes), past polls