Select Code to Download

package Thing;
...
}

"my" variable $cwd masks earlier declaration in same statement at Thin
+g.pm line 31.

method getcwd() {
    return $self->topdir;
}

perl -c Thing.pm 
Bareword "nnext" not allowed while "strict subs" in use at Thing.pm li
+ne 21.
syntax error at Thing.pm line 29, near ") {"
Global symbol "$self" requires explicit package name at Thing.pm line 
+30.
Thing.pm had compilation errors.