Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Tomcat42
perl-Class-Data-Accessor
perl-Class-Data-Accessor.spec
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File perl-Class-Data-Accessor.spec of Package perl-Class-Data-Accessor
# # spec file for package perl-Class-Data-Accessor (Version 0.04004) # # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed # upon. The license for this file, and modifications and additions to the # file, is the same license as for the pristine package itself (unless the # license for the pristine package is not an Open Source License, in which # case the license is the MIT License). An "Open Source License" is a # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. # Please submit bugfixes or comments via http://bugs.opensuse.org/ # Name: perl-Class-Data-Accessor Version: 0.04004 Release: 1 License: GPL+ or Artistic %define cpan_name Class-Data-Accessor Summary: Inheritable, overridable class and instance data accessor creation Url: http://search.cpan.org/dist/Class-Data-Accessor/ Group: Development/Libraries/Perl Source: http://www.cpan.org/authors/id/C/CL/CLACO/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Carp) BuildRequires: perl(Module::Install) BuildRequires: perl(ExtUtils::MakeMaker) Requires: perl(Carp) %{perl_requires} %description *This module is now deprecated!* Please consider using the Class::Accessor::Grouped manpage or the Moose manpage Class::Data::Accessor is the marriage of the Class::Accessor manpage and the Class::Data::Inheritable manpage into a single module. It is used for creating accessors to class data that overridable in subclasses as well as in class instances. For example: Pere::Ubu->mk_classaccessor('Suitcase'); will generate the method Suitcase() in the class Pere::Ubu. This new method can be used to get and set a piece of class data. Pere::Ubu->Suitcase('Red'); $suitcase = Pere::Ubu->Suitcase; Taking this one step further, you can make a subclass that inherits from Pere::Ubu: package Raygun; use base qw(Pere::Ubu); # Raygun's suitcase is Red. $suitcase = Raygun->Suitcase; Raygun inherits its Suitcase class data from Pere::Ubu. Inheritance of class data works analogous to method inheritance. As long as Raygun does not "override" its inherited class data (by using Suitcase() to set a new value) it will continue to use whatever is set in Pere::Ubu and inherit further changes: # Both Raygun's and Pere::Ubu's suitcases are now Blue Pere::Ubu->Suitcase('Blue'); However, should Raygun decide to set its own Suitcase() it has now "overridden" Pere::Ubu and is on its own, just like if it had overridden a method: # Raygun has an orange suitcase, Pere::Ubu's is still Blue. Raygun->Suitcase('Orange'); Now that Raygun has overridden Pere::Ubu, further changes by Pere::Ubu no longer effect Raygun. # Raygun still has an orange suitcase, but Pere::Ubu is using Samsonite. Pere::Ubu->Suitcase('Samsonite'); You can also override this class data on a per-object basis. If $obj isa Pere::Ubu then $obj->Suitcase; # will return Samsonite $obj->Suitcase('Purple'); # will set Suitcase *for this object only* And after you've done that, $obj->Suitcase; # will return Purple but Pere::Ubu->Suitcase; # will still return Samsonite If you don't want this behaviour use the Class::Data::Inheritable manpage instead. 'mk_classaccessor' will die if used as an object method instead of as a class method. %prep %setup -q -n %{cpan_name}-%{version} %build %{__perl} Makefile.PL INSTALLDIRS=vendor %{__make} %{?_smp_mflags} %check %{__make} test %install %perl_make_install %perl_process_packlist %perl_gen_filelist %clean %{__rm} -rf %{buildroot} %files -f %{name}.files %defattr(-,root,root,755) %doc Changes README %changelog
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor