Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Dualvar via table

by LanX (Cardinal)
on Jan 17, 2020 at 17:32 UTC ( #11111537=note: print w/replies, xml ) Need Help??

in reply to Dualvar via table

Concerning your code ... TL;DR ... sorry!


> This code is working. But I would be interested in your opinion. What could I do better?

dualvar means fiddling with internals, especially if you need to tie it with even more magic, too.

I'd reserve this approach for really hard to achieve stuff or temporary tricks (like for debugging)

IMHO using OOP together with overload for stringification and numification (see overload# String, numeric, boolean, and regexp conversions ) offers a much better interface and is easier to maintain. (untested!)

HTH! :)

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice


) see Cookbook section in overload for an example

# Two-face Scalars # Put this in in your Perl library directory: package two_face; # Scalars with separate string and # numeric values. sub new { my $p = shift; bless [@_], $p } use overload '""' => \&str, '0+' => \&num, fallback => 1; sub num {shift->[1]} sub str {shift->[0]} # Use it as follows: require two_face; my $seven = two_face->new("vii", 7); printf "seven=$seven, seven=%d, eight=%d\n", $seven, $seven+1; print "seven contains 'i'\n" if $seven =~ /i/; # (The second line creates a scalar which has both a string value, and + a numeric value.) This prints: seven=vii, seven=7, eight=8 seven contains 'i'

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2020-10-21 15:56 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (219 votes). Check out past polls.