chromatic writes that he wants to have something similar to 'use
constant', but which also lets you get the name of the constant - not
just its value.  He goes on to discuss the implementation:
> 
> My solution is to overload constant::import, stashing away the names
> and values, so they can be fetched at runtime.
I usually use dualvar from Scalar::Util for this.  dualvar gives you
magic scalars that behave similarly to $!.

       dualvar NUM, STRING
           Returns a scalar that has the value NUM in a numeric
           context and the value STRING in a string context.

               $foo = dualvar 10, "Hello";
               $num = $foo + 2;                    # 12
               $str = $foo . " world";             # Hello world

-- 
Matthew Sachs   <[EMAIL PROTECTED]>  <[EMAIL PROTECTED]>
http://www.zevils.com/ * GPG key: 0x600A0342 * PGP key: 0x93EA1151
#The original nonstandard deviant# (((T^E)%(PQ))^D)%(PQ) = RSA-NOP

Reply via email to