Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w -T

...
beginning my module2: b, c
ending    my module2: b, c
after  using my module: b, c
  2. or download this
    package Module;

...
BEGIN { print 'ending    my module1: ' . join(', ',@ARGV)."\n" }

1;
  3. or download this
    package Module2;

...
BEGIN { print 'ending    my module2: ' . join(', ',@ARGV)."\n" }

1;
  4. or download this
    BEGIN {
  *CORE::GLOBAL::require = sub {  printf "===== TRACE: req %-20s with 
+ARGV=%s\n",
...
                               };

}