From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56764) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fU0wg-0000PV-41 for guix-patches@gnu.org; Fri, 15 Jun 2018 22:28:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fU0we-0003mZ-1E for guix-patches@gnu.org; Fri, 15 Jun 2018 22:28:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:42917) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fU0wd-0003mP-Sx for guix-patches@gnu.org; Fri, 15 Jun 2018 22:28:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fU0wd-0003dD-MC for guix-patches@gnu.org; Fri, 15 Jun 2018 22:28:03 -0400 Subject: [bug#31854] [PATCH 5/8] gnu: Add perl-file-finder. Resent-Message-ID: From: Kei Kebreau Date: Fri, 15 Jun 2018 22:26:51 -0400 Message-Id: <20180616022654.686-4-kkebreau@posteo.net> In-Reply-To: <20180616022654.686-1-kkebreau@posteo.net> References: <20180616022654.686-1-kkebreau@posteo.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 31854@debbugs.gnu.org Cc: Kei Kebreau * gnu/packages/perl.scm (perl-file-finder): New variable. --- gnu/packages/perl.scm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index e7b46bdc1..88d55722e 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -9528,6 +9528,38 @@ File::Find replacement in Perl.") interface to File::Find::Object.") (license (package-license perl)))) +(define-public perl-file-finder + (package + (name "perl-file-finder") + (version "0.53") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/M/ME/MERLYN/File-Finder-" + version ".tar.gz")) + (sha256 + (base32 + "0x3a2xgzrka73lcmmwalq2mmpzxa7s6pm01ahxf677ksqsdc3jrf")))) + (build-system perl-build-system) + (propagated-inputs + `(("perl-text-glob" ,perl-text-glob))) + (home-page "http://search.cpan.org/dist/File-Finder/") + (synopsis "Wrapper for @code{File::Find} ala @code{find(1)}") + (description + "@code{File::Find} is great, but constructing the wanted routine can +sometimes be a pain. @code{File::Finder} provides a wanted-writer, using +syntax that is directly mappable to the @code{find} command's syntax. + +A @code{File::Finder} object contains a hash of @code{File::Find} options, and +a series of steps that mimic find's predicates. Initially, a +@code{File::Finder} object has no steps. Each step method clones the previous +object's options and steps, and then adds the new step, returning the new +object. In this manner, an object can be grown, step by step, by chaining +method calls. Furthermore, a partial sequence can be created and held, and +used as the head of many different sequences.") + (license (package-license perl)))) + (define-public perl-font-ttf (package (name "perl-font-ttf") -- 2.17.1