Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: How to make bi-modal variables like $! ?

by japhy (Canon)
on Jun 28, 2001 at 20:14 UTC ( [id://92346]=note: print w/replies, xml ) Need Help??


in reply to How to make bi-modal variables like $! ?

You'll need to do some overloading. 
package DualVar;

use overload (
  '""' => sub { $_[0][0] },
  '0+' => sub { $_[0][1] },
  fallback => 1,
);

sub new { bless [ @_[1,2] ], $_[0] }

1;

[download]
And that's all! 
use DualVar;

my $x = DualVar->new("japhy", 19);
printf "I'm %s, and I'm %d years old.\n", $x, $x;

[download]


japhy -- Perl and Regex Hacker

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://92346]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2024-04-16 18:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found