Help for this page

Select Code to Download


  1. or download this
    sub _make_tag_func {
    my ($self,$tagname) = @_;
    my $func = qq(
        sub $tagname {
  2. or download this
    sub _make_tag_func {
    my ($self,$tagname) = @_;
    my ($line,$file)= ( 3+__LINE__, __FILE__ );
    my $func = qq(
#line $line "$file/$tagname"
        sub $tagname {