Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
P is for Practical
 
PerlMonks  

Re^6: How do I pretend a reference isn't a reference

by clinton (Priest)
on Nov 06, 2008 at 11:52 UTC ( #721962=note: print w/ replies, xml ) Need Help??


in reply to Re^5: How do I pretend a reference isn't a reference
in thread How do I pretend a reference isn't a reference

Well, my original example was defining the array @days at compile time, because that's going to be more efficient than:

sub day_of_week { my $self = shift; my @days = _('Mon'),_('Tues'),_('Wed'),_('Thurs'),_('Fri') +,_('Sat'),_('Sun'); return $days[ $self->{day_num} ]; }

To give another example, I have about 3,000 lines of YAML config data, which gets loaded into a hash during initialisation. Some of that data will contain strings-to-be-translated, eg:

status: a: _('Active') i: _('Inactive')

During init, I check all the scalar values in the config hash and, if they match the _('...') form, then I bless them into i18n::String. Doing this with tie wouldn't be feasible.

Clint


Comment on Re^6: How do I pretend a reference isn't a reference
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2014-04-18 00:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (460 votes), past polls