Help for this page

Select Code to Download


  1. or download this
    package Hello::Locale;
use strict;
...
our $LEXICON_LOADED = 1;

1;
  2. or download this
    #!/usr/local/bin/perl
use strict;
...
print Dumper( $lh );
print "Lexicon loaded\n" if ${ref($lh)."\::LEXICON_LOADED"} ;
print Dumper( %{ref($lh)."\::Lexicon" } );
  3. or download this
    % ./test.pl file.msg
$VAR1 = bless( {
...
               }, 'Hello::Locale::ru' );
Lexicon loaded
Segmentation fault (core dumped)