NAME Object::Base - Multi-threaded base class to establish a class deriving relationship with base classes VERSION version 1.02 ABSTRACT Multi-threaded base class to establish a class deriving relationship with base 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 strict, warnings, threads, threads::shared with using Object::Base. 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 special to get new features into class. Attributes; * Lvaluable * Inheritable * Overridable 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 .