Author: cweyl
Update of /cvs/extras/rpms/perl-Context-Preserve/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv6008/devel
Modified Files:
.cvsignore sources
Added Files:
import.log perl-Context-Preserve.spec
Log Message:
initial import
--- NEW FILE import.log ---
perl-Context-Preserve-0_01-1_fc12:HEAD:perl-Context-Preserve-0.01-1.fc12.src.rpm:1268710988
--- NEW FILE perl-Context-Preserve.spec ---
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@xxxxxxxxxxxxxxx> 0.01-1
- specfile by Fedora::App::MaintainerTools 0.004
Index: .cvsignore
===================================================================
RCS file: /cvs/extras/rpms/perl-Context-Preserve/devel/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- .cvsignore 15 Mar 2010 22:07:55 -0000 1.1
+++ .cvsignore 16 Mar 2010 03:43:15 -0000 1.2
@@ -0,0 +1 @@
+Context-Preserve-0.01.tar.gz
Index: sources
===================================================================
RCS file: /cvs/extras/rpms/perl-Context-Preserve/devel/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- sources 15 Mar 2010 22:07:55 -0000 1.1
+++ sources 16 Mar 2010 03:43:15 -0000 1.2
@@ -0,0 +1 @@
+e28c24d9e85d3f7de1c7b9a545ba991a Context-Preserve-0.01.tar.gz
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
