Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings; 
use Tkx;
...
  if ( $tkxfsr->{after}{$afterid}{sub}) { 
      print 'sub:'.$tkxfsr->{after}{$afterid}{sub}."\n";
      }
  2. or download this
    perl huh-after.pl -esub 0
perl huh-after.pl -esub 1
  3. or download this
    invalid command name "::perl::CODE(0x96f045c)"
invalid command name "::perl::CODE(0x96f045c)"
    while executing
"::perl::CODE(0x96f045c)"
    ("after" script)