NAME Object::Base - Multi-threaded base class to establish a class deriving relationship with parent classes VERSION version 1.03 ABSTRACT Multi-threaded base class to establish a class deriving relationship with parent classes package Foo; use Object::Base; package Bar; use Object::Base qw('Foo', 'Baz'); attributes 'attr1', 'attr2', ':shared'; DESCRIPTION Object::Base provides blessed and thread-shared(with :shared attribute) object with in new method. new method can be used as a constructor and overridable in derived classes. new() should be called in derived class constructors to create and bless self-object. Derived classes own module automatically uses threads, threads::shared, strict, warnings with using Object::Base. If Perl is not built to support threads; it uses forks, forks::shared instead of threads, threads::shared. Object::Base should be loaded as first module. Import parameters of Object::Base, define parent classes of derived class. If none of parent classes derived from Object::Base or any parent isn't defined, Object::Base is automatically added in parent classes. Attributes define read-write accessors binded value of same named key in objects own hash if attribute names is valid subroutine identifiers. Otherwise, attribute is class feature to get new features into class. Attributes; * Lvaluable * Inheritable * Overridable * Redefinable * Thread-Safe Examples; package Foo; use Object::Base; attributes ':shared', 'attr1', 'attr2'; package Bar; use Object::Base 'Foo'; attributes 'attr3', ':shared' => undef, 'attr2' => undef; package main; use threads; use threads::shared; # object of Foo my $foo = Foo->new(); # usage of attribute $foo->attr1(1); print $foo->attr1, "\n"; # prints '1' # attributes are lvalued $foo->attr1++; print $foo->attr1, "\n"; # prints '2' # special attribute ':shared' print "\$foo is ", is_shared($foo)? "shared": "not shared", "\n"; # object of derived class Bar my $bar = Bar->new(); # attributes can be added derived classes $bar->attr3(3); # attributes are inheritable $bar->attr1(3); # attributes are overridable #1 eval { $bar->attr2 = 4 }; print "Eval: $@"; # prints error 'Eval: Attribute attr2 is not defined in Bar at ...' # attributes are overridable #2 print "\$bar is ", is_shared($bar)? "shared": "not shared", "\n"; # prints '$bar is not shared' # assigning ref values to shared class attributes eval { $foo->attr2 = { key1 => 'val1' } }; print "Eval: $@"; # prints error 'Eval: Invalid value for shared scalar at ...' $foo->attr2({ key2 => 'val2' }); # uses shared_clone assigning ref value print $foo->attr2->{key2}, "\n"; # prints 'val2' INSTALLATION To install this module type the following perl Makefile.PL make make test make install from CPAN cpan -i Object::Base DEPENDENCIES This module requires these other modules and libraries: * threads * threads::shared REPOSITORY GitHub CPAN AUTHOR Orkun Karaduman COPYRIGHT AND LICENSE Copyright (C) 2017 Orkun Karaduman This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see .