/[cvs]/nfo/perl/libs/Class/Tom/Code.pm
ViewVC logotype

Diff of /nfo/perl/libs/Class/Tom/Code.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Wed Jan 1 21:17:50 2003 UTC revision 1.2 by joko, Wed Jan 1 21:18:48 2003 UTC
# Line 56  sub code { Line 56  sub code {
56      }      }
57    }    }
58    if ($name eq '__ANON__') {    if ($name eq '__ANON__') {
59      return indent("sub $code;");      return $self->indent("sub $code;");
60    } else {    } else {
61      return indent("sub $name $code;");      return $self->indent("sub $name $code;");
62    }    }
63  }  }
64    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed