Help for this page

Select Code to Download


  1. or download this
    # 1210614.pl
    package MyClass {
    ...
        my $obj = MyClass->new;
        $obj->SetFileName('/foo/bar');
    };
    
  2. or download this
    $ perl 1210614.pl
    You are overwriting a locally defined method (SetFileName) with an acc
    +essor ...
    
  3. or download this
    # 1210614-1.pl
    package MyClass {
    ...
        $obj->SetFileName('/foo/bar');
        warn $obj->FileName;
    };
    
  4. or download this
    $ perl 1210614-1.pl
    /foo/bar at 1210614-1.pl line 9.
    
  5. or download this
    # 1210614-2.pl
    package MyClass {
    ...
        my $obj = MyClass->new;
        $obj->SetFileName('/foo/bar');
    };
    
  6. or download this
    $ perl 1210614-2.pl
    I am here with /foo/bar at 1210614-2.pl line 7.