parent
6c2f9c2dae
commit
fb38aa2738
@ -0,0 +1 @@
|
||||
Context-Preserve-0.01.tar.gz
|
@ -0,0 +1 @@
|
||||
perl-Context-Preserve-0_01-1_fc12:HEAD:perl-Context-Preserve-0.01-1.fc12.src.rpm:1268710988
|
@ -0,0 +1,70 @@
|
||||
Name: perl-Context-Preserve
|
||||
Summary: Run code after a subroutine call, preserving context
|
||||
Version: 0.01
|
||||
Release: 1%{?dist}
|
||||
License: GPL+ or Artistic
|
||||
Group: Development/Libraries
|
||||
Source0: http://search.cpan.org/CPAN/authors/id/J/JR/JROCKWAY/Context-Preserve-%{version}.tar.gz
|
||||
URL: http://search.cpan.org/dist/Context-Preserve
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
|
||||
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
|
||||
BuildArch: noarch
|
||||
|
||||
BuildRequires: perl(Exporter)
|
||||
BuildRequires: perl(ExtUtils::MakeMaker)
|
||||
BuildRequires: perl(ok)
|
||||
BuildRequires: perl(Test::Exception)
|
||||
BuildRequires: perl(Test::More)
|
||||
|
||||
%{?perl_default_filter}
|
||||
%{?perl_default_subpackage_tests}
|
||||
|
||||
%description
|
||||
Sometimes you need to call a function, get the results, act on the
|
||||
results, then return the result of the function. This is painful because
|
||||
of contexts; the original function can behave different if it's called
|
||||
in void, scalar, or list context. You can ignore the various cases and
|
||||
just pick one, but that's fragile. To do things right, you need to see
|
||||
which case you're being called in, and then call the function in that
|
||||
context. This results in 3 code paths, which is a pain to type in (and
|
||||
maintain). This module automates the process. You provide a coderef that
|
||||
is the "original function", and another coderef to run after the
|
||||
original runs. You can modify the return value (aliased to @_) here, and
|
||||
do whatever else you need to do. 'wantarray' is correct inside both
|
||||
coderefs; in "after", though, the return value is ignored and the value
|
||||
'wantarray' returns is related to the context that the original function
|
||||
was called in.
|
||||
|
||||
%prep
|
||||
%setup -q -n Context-Preserve-%{version}
|
||||
|
||||
%build
|
||||
%{__perl} Makefile.PL INSTALLDIRS=vendor
|
||||
make %{?_smp_mflags}
|
||||
|
||||
%install
|
||||
rm -rf %{buildroot}
|
||||
|
||||
make pure_install DESTDIR=%{buildroot}
|
||||
find %{buildroot} -type f -name .packlist -exec rm -f {} ';'
|
||||
find %{buildroot} -depth -type d -exec rmdir {} 2>/dev/null ';'
|
||||
|
||||
%{_fixperms} %{buildroot}/*
|
||||
|
||||
%check
|
||||
make test
|
||||
|
||||
%clean
|
||||
rm -rf %{buildroot}
|
||||
|
||||
%files
|
||||
%defattr(-,root,root,-)
|
||||
%doc README Changes
|
||||
%{perl_vendorlib}/*
|
||||
%{_mandir}/man3/*.3*
|
||||
|
||||
%changelog
|
||||
* Fri Mar 05 2010 Chris Weyl <cweyl@alumni.drew.edu> 0.01-1
|
||||
- specfile by Fedora::App::MaintainerTools 0.004
|
||||
|
||||
|
Loading…
Reference in new issue