Sync from SUSE:SLFO:Main perl-Class-Accessor revision 8a74a9a1bdd1e8318a8b5e56980c298a
This commit is contained in:
commit
10b1903025
23
.gitattributes
vendored
Normal file
23
.gitattributes
vendored
Normal file
@ -0,0 +1,23 @@
|
||||
## Default LFS
|
||||
*.7z filter=lfs diff=lfs merge=lfs -text
|
||||
*.bsp filter=lfs diff=lfs merge=lfs -text
|
||||
*.bz2 filter=lfs diff=lfs merge=lfs -text
|
||||
*.gem filter=lfs diff=lfs merge=lfs -text
|
||||
*.gz filter=lfs diff=lfs merge=lfs -text
|
||||
*.jar filter=lfs diff=lfs merge=lfs -text
|
||||
*.lz filter=lfs diff=lfs merge=lfs -text
|
||||
*.lzma filter=lfs diff=lfs merge=lfs -text
|
||||
*.obscpio filter=lfs diff=lfs merge=lfs -text
|
||||
*.oxt filter=lfs diff=lfs merge=lfs -text
|
||||
*.pdf filter=lfs diff=lfs merge=lfs -text
|
||||
*.png filter=lfs diff=lfs merge=lfs -text
|
||||
*.rpm filter=lfs diff=lfs merge=lfs -text
|
||||
*.tbz filter=lfs diff=lfs merge=lfs -text
|
||||
*.tbz2 filter=lfs diff=lfs merge=lfs -text
|
||||
*.tgz filter=lfs diff=lfs merge=lfs -text
|
||||
*.ttf filter=lfs diff=lfs merge=lfs -text
|
||||
*.txz filter=lfs diff=lfs merge=lfs -text
|
||||
*.whl filter=lfs diff=lfs merge=lfs -text
|
||||
*.xz filter=lfs diff=lfs merge=lfs -text
|
||||
*.zip filter=lfs diff=lfs merge=lfs -text
|
||||
*.zst filter=lfs diff=lfs merge=lfs -text
|
BIN
Class-Accessor-0.51.tar.gz
(Stored with Git LFS)
Normal file
BIN
Class-Accessor-0.51.tar.gz
(Stored with Git LFS)
Normal file
Binary file not shown.
28
cpanspec.yml
Normal file
28
cpanspec.yml
Normal file
@ -0,0 +1,28 @@
|
||||
---
|
||||
#description_paragraphs: 3
|
||||
#description: |-
|
||||
# override description from CPAN
|
||||
#summary: override summary from CPAN
|
||||
#no_testing: broken upstream
|
||||
#sources:
|
||||
# - source1
|
||||
# - source2
|
||||
#patches:
|
||||
# foo.patch: -p1
|
||||
# bar.patch:
|
||||
#preamble: |-
|
||||
# BuildRequires: gcc-c++
|
||||
#post_prep: |-
|
||||
# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'`
|
||||
# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL
|
||||
#post_build: |-
|
||||
# rm unused.files
|
||||
#post_install: |-
|
||||
# sed on %{name}.files
|
||||
#license: SUSE-NonFree
|
||||
#skip_noarch: 1
|
||||
#custom_build: |-
|
||||
#./Build build flags=%{?_smp_mflags} --myflag
|
||||
#custom_test: |-
|
||||
#startserver && make test
|
||||
#ignore_requires: Bizarre::Module
|
149
perl-Class-Accessor.changes
Normal file
149
perl-Class-Accessor.changes
Normal file
@ -0,0 +1,149 @@
|
||||
-------------------------------------------------------------------
|
||||
Mon Oct 23 05:08:18 UTC 2017 - coolo@suse.com
|
||||
|
||||
- updated to 0.51
|
||||
see /usr/share/doc/packages/perl-Class-Accessor/Changes
|
||||
|
||||
0.50 2017-10-20
|
||||
Thanks to Jonas B. Nielsen for working through the RT queue.
|
||||
- patch for speed increase RT#84838
|
||||
- patch for faster constructor RT#57353
|
||||
- fixed typos for RT#61304 and RT#86422
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Fri Nov 18 11:08:48 UTC 2011 - coolo@suse.com
|
||||
|
||||
- use original .tar.gz
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Mon Aug 22 09:16:51 UTC 2011 - lars@linux-schulserver.de
|
||||
|
||||
- enhance the description
|
||||
- also package examples directory
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Tue Nov 30 19:19:53 UTC 2010 - coolo@novell.com
|
||||
|
||||
- switch to perl_requires macro
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Mon Mar 8 22:35:22 UTC 2010 - chris@computersalat.de
|
||||
|
||||
- cleanup spec
|
||||
o dep for perl-macros
|
||||
o Provides
|
||||
o Makefile.PL
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Jan 13 16:40:29 CET 2010 - anicka@suse.cz
|
||||
|
||||
- update to 0.34
|
||||
* add a Moose-like interface: I can haz "has"
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Sun Jan 10 15:43:32 CET 2010 - jengelh@medozas.de
|
||||
|
||||
- enable parallel build
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Sat Jul 25 19:29:15 CEST 2009 - chris@computersalat.de
|
||||
|
||||
- spec mods
|
||||
* removed ^----------
|
||||
* removed ^#---------
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Sun Jun 28 16:09:41 CEST 2009 - chris@computersalat.de
|
||||
|
||||
- added perl-macros
|
||||
o autogen filelist with perl_gen_filelist
|
||||
- spec mods
|
||||
o fixed deps
|
||||
no usage of Carp::Assert since 0.15
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Mon May 18 15:48:57 CEST 2009 - anicka@suse.cz
|
||||
|
||||
- update to 0.33
|
||||
* small cleanups to fix RT#45592 and RT#43493
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Jul 25 15:00:53 CEST 2007 - anicka@suse.cz
|
||||
|
||||
- update to 0.31
|
||||
* applied performance patch from RUZ
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Dec 13 12:19:25 CET 2006 - anicka@suse.cz
|
||||
|
||||
- update to 0.30
|
||||
* added version numbers back into each class
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Mon Jul 24 14:56:00 CEST 2006 - anicka@suse.cz
|
||||
|
||||
- update to 0.27
|
||||
* added Class::Accessor::Faster that uses an array internally
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Tue Jul 11 16:52:08 CEST 2006 - anicka@suse.cz
|
||||
|
||||
- update to 0.25
|
||||
- minor release
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Jan 25 21:39:31 CET 2006 - mls@suse.de
|
||||
|
||||
- converted neededforbuild to BuildRequires
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Tue Jan 3 15:53:17 CET 2006 - anicka@suse.cz
|
||||
|
||||
- update to 0.22
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Sep 28 22:07:52 CEST 2005 - dmueller@suse.de
|
||||
|
||||
- add norootforbuild
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Fri Aug 13 19:55:41 CEST 2004 - mjancar@suse.cz
|
||||
|
||||
- update to 0.19
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Fri Aug 22 14:08:14 CEST 2003 - mjancar@suse.cz
|
||||
|
||||
- require the perl version we build with
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Tue Jul 15 11:41:12 CEST 2003 - mjancar@suse.cz
|
||||
|
||||
- adapt to perl-5.8.1
|
||||
- use %perl_process_packlist
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Jun 18 15:05:12 CEST 2003 - mjancar@suse.cz
|
||||
|
||||
- fix filelist
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Tue May 20 12:38:12 CEST 2003 - mjancar@suse.cz
|
||||
|
||||
- remove unpackaged files
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Tue Jul 2 17:40:06 MEST 2002 - mls@suse.de
|
||||
|
||||
- remove race in .packlist generation
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Jun 26 17:23:39 CEST 2002 - prehak@suse.cz
|
||||
|
||||
- correct permissions of examples directories
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Jan 23 16:44:12 CET 2002 - rvasice@suse.cz
|
||||
|
||||
- initial package release (version 0.17)
|
||||
|
105
perl-Class-Accessor.spec
Normal file
105
perl-Class-Accessor.spec
Normal file
@ -0,0 +1,105 @@
|
||||
#
|
||||
# spec file for package perl-Class-Accessor
|
||||
#
|
||||
# Copyright (c) 2017 SUSE LINUX 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-Accessor
|
||||
Version: 0.51
|
||||
Release: 0
|
||||
%define cpan_name Class-Accessor
|
||||
Summary: Automated accessor generation
|
||||
License: Artistic-1.0 or GPL-1.0+
|
||||
Group: Development/Libraries/Perl
|
||||
Url: http://search.cpan.org/dist/Class-Accessor/
|
||||
Source0: https://cpan.metacpan.org/authors/id/K/KA/KASEI/%{cpan_name}-%{version}.tar.gz
|
||||
Source1: cpanspec.yml
|
||||
BuildArch: noarch
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||
BuildRequires: perl
|
||||
BuildRequires: perl-macros
|
||||
%{perl_requires}
|
||||
|
||||
%description
|
||||
This module automagically generates accessors/mutators for your class.
|
||||
|
||||
Most of the time, writing accessors is an exercise in cutting and pasting.
|
||||
You usually wind up with a series of methods like this:
|
||||
|
||||
sub name {
|
||||
my $self = shift;
|
||||
if(@_) {
|
||||
$self->{name} = $_[0];
|
||||
}
|
||||
return $self->{name};
|
||||
}
|
||||
|
||||
sub salary {
|
||||
my $self = shift;
|
||||
if(@_) {
|
||||
$self->{salary} = $_[0];
|
||||
}
|
||||
return $self->{salary};
|
||||
}
|
||||
|
||||
# etc...
|
||||
|
||||
One for each piece of data in your object. While some will be unique, doing
|
||||
value checks and special storage tricks, most will simply be exercises in
|
||||
repetition. Not only is it Bad Style to have a bunch of repetitious code,
|
||||
but it's also simply not lazy, which is the real tragedy.
|
||||
|
||||
If you make your module a subclass of Class::Accessor and declare your
|
||||
accessor fields with mk_accessors() then you'll find yourself with a set of
|
||||
automatically generated accessors which can even be customized!
|
||||
|
||||
The basic set up is very simple:
|
||||
|
||||
package Foo;
|
||||
use base qw(Class::Accessor);
|
||||
Foo->mk_accessors( qw(far bar car) );
|
||||
|
||||
Done. Foo now has simple far(), bar() and car() accessors defined.
|
||||
|
||||
Alternatively, if you want to follow Damian's _best practice_ guidelines
|
||||
you can use:
|
||||
|
||||
package Foo;
|
||||
use base qw(Class::Accessor);
|
||||
Foo->follow_best_practice;
|
||||
Foo->mk_accessors( qw(far bar car) );
|
||||
|
||||
*Note:* you must call 'follow_best_practice' before calling 'mk_accessors'.
|
||||
|
||||
%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
|
||||
|
||||
%files -f %{name}.files
|
||||
%defattr(-,root,root,755)
|
||||
%doc Changes examples README
|
||||
|
||||
%changelog
|
Loading…
Reference in New Issue
Block a user