Select Code to Download

Select or download this

perl -MData::Dumper -Mlib=. -MHelper::Lgr -E'     \
    $l=Helper::Lgr->getInstance();$l->log(0,"Log1"); \
    $z=Helper::Lgr->getInstance();$l->set('Log', 4); \
...
                 'Log' => 0,
                 'fh' => \*Helper::Lgr::__ANONIO__
               }, 'Helper::Lgr' );

Select or download this

#!/usr/bin/perl
#
...
    bless $instance, $class; # we bless early so we can call methods o
+n ourself

    ... And much more ...