TOC | Index | (Page 21 of 29)| Chapter: Introduction | Gabor Szabo
<< d2.pl perl -d:T4 d2.pl >>

1.20 Devel::T4


package Devel::T4;

package DB;

sub DB {
}

sub sub  {
  $i++;
  print "$i $sub(", join(",", @_), ")\n";
  &$sub;
}


1;