Author: qboosh Date: Mon Nov 6 21:32:10 2006 GMT Module: SPECS Tag: HEAD ---- Log message: - pl, URL, md5, missing dir
---- Files affected: SPECS: perl-Hook-WrapSub.spec (1.1 -> 1.2) ---- Diffs: ================================================================ Index: SPECS/perl-Hook-WrapSub.spec diff -u SPECS/perl-Hook-WrapSub.spec:1.1 SPECS/perl-Hook-WrapSub.spec:1.2 --- SPECS/perl-Hook-WrapSub.spec:1.1 Thu Nov 2 14:49:03 2006 +++ SPECS/perl-Hook-WrapSub.spec Mon Nov 6 22:32:05 2006 @@ -4,44 +4,55 @@ %bcond_without tests # do not perform "make test" # %include /usr/lib/rpm/macros.perl -%define pdir Hook -%define pnam WrapSub +%define pdir Hook +%define pnam WrapSub Summary: Hook::WrapSub - wrap subs with pre- and post-call hooks -#Summary(pl): +Summary(pl): Hook::WrapSub - obudowanie procedur w wywołania przed i po wywołaniu Name: perl-Hook-WrapSub Version: 0.03 Release: 0.1 # same as perl License: GPL v1+ or Artistic Group: Development/Languages/Perl -Source0: http://www.cpan.org/modules/by-module/%{pdir}/%{pdir}-%{pnam}-%{version}.tar.gz +Source0: http://www.cpan.org/modules/by-module/Hook/%{pdir}-%{pnam}-%{version}.tar.gz +# Source0-md5: 7a5e42aca06d6ba06dcbd5e2cb5769bf +URL: http://search.cpan.org/dist/Hook-WrapSub/ BuildRequires: perl-devel >= 1:5.8.0 BuildRequires: rpm-perlprov >= 4.1-13 -%if %{with tests} -%endif BuildArch: noarch BuildRoot: %{tmpdir}/%{name}-%{version}-root-%(id -u -n) %description -This function enables intercepting a call to any named -function; handlers may be added both before and after -the call to the intercepted function. +This function enables intercepting a call to any named function; +handlers may be added both before and after the call to the +intercepted function. For example: wrap_subs \&before, 'some_func', \&after; -In this case, whenever the sub named 'some_func' is called, -the &before sub is called first, and the &after sub is called -afterwards. These are both optional. If you only want -to intercept the call beforehand: +In this case, whenever the sub named 'some_func' is called, the +&before sub is called first, and the &after sub is called afterwards. +These are both optional. If you only want to intercept the call +beforehand: wrap_subs \&before, 'some_func'; +%description -l pl +Ta funkcja umożliwia przechwytywanie wywołania dowolnej nazwanej +funkcji; można dodać procedury obsługi zarówno przed jak i po +wywołaniu przechwytywanej funkcji. +Na przykład: -# %description -l pl -# TODO + wrap_subs \&przed, 'jakas_funkcja', \&po + +W tym przypadku, kiedy wywoływana jest 'jakas_funkcja', najpierw +wywoływana jest procedura &przed, a procedura &po jest wywoływana po +powrocie. Obie są opcjonalne. Aby przechwycić tylko punkt przed +wywołaniem można użyć: + + wrap_subs \&przed, 'jakas_funkcja'; %prep %setup -q -n %{pdir}-%{pnam}-%{version} @@ -65,6 +76,7 @@ %files %defattr(644,root,root,755) %doc Changes README +%dir %{perl_vendorlib}/Hook %{perl_vendorlib}/Hook/*.pm %{_mandir}/man3/* @@ -74,6 +86,8 @@ All persons listed below can be reached at <cvs_login>@pld-linux.org $Log$ +Revision 1.2 2006/11/06 21:32:05 qboosh +- pl, URL, md5, missing dir + Revision 1.1 2006/11/02 13:49:03 mguevara - initial - ================================================================ ---- CVS-web: http://cvs.pld-linux.org/SPECS/perl-Hook-WrapSub.spec?r1=1.1&r2=1.2&f=u _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
