Select Code to Download

    #==============================
    package i18n::String;
...
    fetch_tied    168634/s            --          -11%
    fetch_blessed 190476/s           13%            --

   my @months = map { tie my $var, i18n::String2, $_ } qw(January Febr
+uary);
...
             bless( do{\(my $o = 'February')}, 'i18n::String2' )
           ];