Re: conditional enable use bytes for a whole module at compiletime?


Syntactic Confectionery Delight
	PerlMonks

Re: conditional enable use bytes for a whole module at compiletime?

by monsieur_champs (Curate)

on Nov 19, 2004 at 13:51 UTC ( #408996=note: print w/replies, xml )

Need Help??

in reply to conditional enable use bytes for a whole module at compiletime?

I think you can say

BEGIN {
package Y;
$VERSION = 0.1;
1;
package X;
if ( $Y::VERSION < 1 ) {
  # How to enable use bytes for the whole modue X?
  # with condition $Y::VERSION in mind?

  ## Not use()'d anymore.
  # use bytes;
  require bytes;
}
[download]

And this will do what you mean.

Note: this is untested code, as always.

-- monsieur_champs

Comment on Re: conditional enable use bytes for a whole module at compiletime? Download Code

Replies are listed 'Best First'.
Re^2: conditional enable use bytes for a whole module at compiletime? by borisz (Canon) on Nov 19, 2004 at 14:01 UTC
Hi, no, you think, that my desire is to load the module on a condition, this is not true. I like to enable it on a condition in another scope. For example, this works fine, but I want `use bytes` only if `$Y::VERSION < 1`. `BEGIN { package Y; $VERSION = 0.1; 1; package X; use bytes; sub l{ return length shift } 1; } package main; no bytes; $x = chr(3456); print X::l($x);` [download] Boris	[reply] [d/l] [select]
Re^3: conditional enable use bytes for a whole module at compiletime? by olivierp (Hermit) on Nov 19, 2004 at 14:36 UTC
borisz, may this node: Conditional Compiling can be of help ? HTH -- Olivier	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://408996]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others taking refuge in the Monastery: (5)

As of 2023-03-28 04:59 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?