Accepting request 842985 from devel:languages:perl:CPAN-T
Somehow I submitted the pre-fixed version. Should be correct now. OBS-URL: https://build.opensuse.org/request/show/842985 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Tie-Function?expand=0&rev=1
This commit is contained in:
72
perl-Tie-Function.spec
Normal file
72
perl-Tie-Function.spec
Normal file
@@ -0,0 +1,72 @@
|
||||
#
|
||||
# spec file for package perl-Tie-Function
|
||||
#
|
||||
# Copyright (c) 2020 SUSE LLC
|
||||
#
|
||||
# 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 https://bugs.opensuse.org/
|
||||
#
|
||||
|
||||
|
||||
Name: perl-Tie-Function
|
||||
Version: 0.02
|
||||
Release: 0
|
||||
%define cpan_name Tie-Function
|
||||
Summary: Wrap functions in tied hash sugar
|
||||
License: Artistic-1.0 OR GPL-1.0-or-later
|
||||
Group: Development/Libraries/Perl
|
||||
URL: https://metacpan.org/release/%{cpan_name}
|
||||
Source0: https://cpan.metacpan.org/authors/id/D/DA/DAVIDNICO/handy_tied_functions/%{cpan_name}-%{version}.tar.gz
|
||||
Source1: cpanspec.yml
|
||||
BuildArch: noarch
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||
BuildRequires: perl
|
||||
BuildRequires: perl-macros
|
||||
%{perl_requires}
|
||||
|
||||
%description
|
||||
Tie::Function simplifies wrapping functions in tied hash syntax so they can
|
||||
be interpolated in double-quoted literals without messy intermediate
|
||||
variables.
|
||||
|
||||
Here's how I use it the most:
|
||||
|
||||
use HTML::Entities;
|
||||
use Tie::Function;
|
||||
tie my %Entitize => 'Tie::Function' => \&encode_entities;
|
||||
...
|
||||
print <<EOF;
|
||||
<em>$Entitize{$somethingaboutsomething}</em><br>
|
||||
<textarea name="something"
|
||||
cols="60" rows="10">$Entitize{$something}</textarea>
|
||||
EOF
|
||||
...
|
||||
|
||||
%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 README
|
||||
|
||||
%changelog
|
||||
Reference in New Issue
Block a user