/usr/local/CPAN/OOP/OOP/Accessor.pm

• package OOP::Accessor
  • getProperty
• EOF

package OOP::Accessor;

use Carp;
use strict;

sub getProperty {

my($self, $property) = @_;

return $property;

}

1;