Select Code to Download

# 1210614.pl
package MyClass {
...
    my $obj = MyClass->new;
    $obj->SetFileName('/foo/bar');
};

$ perl 1210614.pl
You are overwriting a locally defined method (SetFileName) with an acc
+essor ...

# 1210614-1.pl
package MyClass {
...
    $obj->SetFileName('/foo/bar');
    warn $obj->FileName;
};

$ perl 1210614-1.pl
/foo/bar at 1210614-1.pl line 9.

# 1210614-2.pl
package MyClass {
...
    my $obj = MyClass->new;
    $obj->SetFileName('/foo/bar');
};

$ perl 1210614-2.pl
I am here with /foo/bar at 1210614-2.pl line 7.