[PATCH] Add SpamAssassin, Debbugs dependencies

+++ b/gnu/packages/databases.scm

+ (version "0.082843")

+ (base32 "0lgjw7z4y2inf3yyfph1ljdp4f5zdmy9vh56fj8w9n19rdp0n7il"))))

+ perl-moo-2

+++ b/gnu/packages/databases.scm

+(define-public perl-dbix-class-deploymenthandler

+ (package

+ (name "perl-dbix-class-deploymenthandler")

+ (version "0.002233")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MM/MMCCLIMON/DBIx-Class-DeploymentHandler-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1bikp1q3pm1xphfdr8kmsqvzzpk06an3112mhb6gl8vlpg81ch4m"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-aliased

+ perl-dbd-sqlite

+ perl-dbix-class-schema-loader

+ perl-test-fatal

+ perl-test-most

+ perl-test-requires))

+ (propagated-inputs (list perl-carp-clan

+ perl-context-preserve

+ perl-dbix-class

+ perl-log-contextual

+ perl-module-runtime

+ perl-moose

+ perl-moosex-role-parameterized

+ perl-namespace-autoclean

+ perl-path-class

+ perl-sql-splitstatement

+ perl-sql-translator

+ perl-sub-exporter-progressive

+ perl-sub-quote

+ perl-text-brew

+ perl-try-tiny

+ perl-yaml))

+ (home-page "https://metacpan.org/release/DBIx-Class-DeploymentHandler")

+ (synopsis "Extensible DBIx::Class deployment")

+ (description

+ "@code{DBIx::Class::DeploymentHandler} is a tool for deploying and

+upgrading databases with @code{DBIx::Class}. It is designed to be much more

+flexible than @code{DBIx::Class::Schema::Versioned}, hence the use of Moose

+and lots of roles.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/databases.scm

+(define-public perl-dbix-simple

+ (package

+ (name "perl-dbix-simple")

+ (version "1.37")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/J/JU/JUERD/DBIx-Simple-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "1qyaj01zb6xplzcp7pj0b9609fvd89c9c4an3i00g2g05jm13ls6"))))

+ (build-system perl-build-system)

+ (propagated-inputs (list perl-dbi))

+ (home-page "https://metacpan.org/release/DBIx-Simple")

+ (synopsis "Object-oriented interface to DBI")

+ (description

+ "DBIx::Simple provides a simplified interface to DBI, Perl's powerful

+database module. This module is aimed at rapid development and easy

+maintenance. Query preparation and execution are combined in a single method,

+the result object (which is a wrapper around the statement handle) provides

+easy row-by-row and slurping methods.")

+ ;; The POD info says: "Pick your favorite OSI-approved license"

+ ;; Use unlicense because it has the least restrictions.

+ (license license:unlicense)))

+

+++ b/gnu/packages/databases.scm

+(define-public perl-dbicx-testdatabase

+ (package

+ (name "perl-dbicx-testdatabase")

+ (version "0.05")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/J/JR/JROCKWAY/DBICx-TestDatabase-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1kqaiygxiarrqkgqbq1s3xilx77msbdsqrdaqf4628811d9w4fwf"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-dbix-class perl-module-install))

+ (propagated-inputs (list perl-dbd-sqlite

+ perl-sql-translator))

+ (home-page "https://metacpan.org/release/DBICx-TestDatabase")

+ (synopsis "Create a temporary database from a DBIx::Class::Schema")

+ (description

+ "This module creates a temporary SQLite database, deploys a DBIC schema,

+and then connects to it. This lets you easily test DBIC schema. Since you have

+a fresh database for every test, you don't have to worry about cleaning up

+after your tests, ordering of tests affecting failure, etc.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/databases.scm

+(define-public perl-dbix-class-dynamicdefault

+ (package

+ (name "perl-dbix-class-dynamicdefault")

+ (version "0.04")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MS/MSTROUT/DBIx-Class-DynamicDefault-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1yssda00988hn9v96jl95apbzib74vgbcgf69m5mhhj64amm33r2"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-dbicx-testdatabase perl-module-install))

+ (propagated-inputs (list perl-dbix-class))

+ (home-page "https://metacpan.org/release/DBIx-Class-DynamicDefault")

+ (synopsis "Automatically set and update fields")

+ (description

+ "Automatically set and update fields with values calculated at runtime.

+Ipdate or create actions will set the specified columns to the value returned

+by the callback you specified as a method name or code reference.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/databases.scm

+(define-public perl-dbix-class-timestamp

+ (package

+ (name "perl-dbix-class-timestamp")

+ (version "0.14")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/R/RI/RIBASUSHI/DBIx-Class-TimeStamp-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1zhr4r5ffihqsh2imap7zmps2y0h71piqqhg2nqhcwkjhvlxb958"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-class-accessor-grouped

+ perl-datetime-format-mysql

+ perl-datetime-format-sqlite

+ perl-dbd-sqlite

+ perl-module-install

+ perl-test-pod

+ perl-time-warp))

+ (propagated-inputs (list perl-datetime

+ perl-dbix-class

+ perl-dbix-class-dynamicdefault))

+ (home-page "https://metacpan.org/release/DBIx-Class-TimeStamp")

+ (synopsis

+ "DBIx::Class extension to update and create date and time based fields")

+ (description

+ "This package works in conjunction with @code{InflateColumn::DateTime} to

+automatically set update and create date and time based fields in a table.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/databases.scm

+(define-public perl-sql-translator

+ (package

+ (name "perl-sql-translator")

+ (version "1.63")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/V/VE/VEESH/SQL-Translator-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0cric118ms3dcnb3m2a1jdhdxmai8wwp5jbx34mf72s9jd6b11aq"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-file-sharedir-install

+ perl-json-maybexs

+ perl-test-differences

+ perl-test-exception

+ perl-test-most

+ perl-xml-writer

+ perl-yaml))

+ (propagated-inputs (list perl-carp-clan

+ perl-dbi

+ perl-file-sharedir

+ perl-gd

+ perl-graph

+ perl-graphviz

+ perl-moo

+ perl-package-variant

+ perl-parse-recdescent

+ perl-spreadsheet-parseexcel

+ perl-strictures-2

+ perl-sub-quote

+ perl-template-toolkit

+ perl-text-recordparser

+ perl-try-tiny

+ perl-xml-libxml))

+ (home-page "https://metacpan.org/release/SQL-Translator")

+ (synopsis "Manipulate structured data definitions (SQL and more)")

+ (description

+ "@code{SQL::Translator} is a group of Perl modules that converts

+vendor-specific SQL table definitions into other formats, such as other

+vendor-specific SQL, ER diagrams, documentation (POD and HTML), XML, and

+@code{Class::DBI} classes. The main focus is SQL, but parsers exist for other

+structured data formats, including Excel spreadsheets and arbitrarily

+delimited text files. Through the separation of the code into parsers and

+producers with an object model in between, it's possible to combine any parser

+with any producer, to plug in custom parsers or producers, or to manipulate

+the parsed data via the built-in object model. Presently only the definition

+parts of SQL are handled (CREATE, ALTER), not the manipulation of

+data (INSERT, UPDATE, DELETE).")

+ (license license:perl-license)))

+

+++ b/gnu/packages/databases.scm

+(define-public perl-test-postgresql

+ (package

+ (name "perl-test-postgresql")

+ (version "1.29")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/T/TJ/TJC/Test-PostgreSQL-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "17jgiqdyprb8q4855anica2kr0lxdi9rnq27vsfclk6ai7jzgb0q"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:tests? #f)) ;2/41 fail, require running Postgres server

+ (native-inputs (list perl-module-build-tiny

+ perl-test-sharedfork))

+ (propagated-inputs (list perl-dbd-pg

+ perl-dbi

+ perl-file-which

+ perl-function-parameters

+ perl-moo

+ perl-tie-hash-method

+ perl-try-tiny

+ perl-type-tiny))

+ (home-page "https://metacpan.org/release/Test-PostgreSQL")

+ (synopsis "PostgreSQL runner for tests")

+ (description

+ "@code{Test::PostgreSQL} automatically setups a PostgreSQL instance in a

+temporary directory, and destroys it when the perl script exits.")

+ (license license:artistic2.0)))

+

+++ b/gnu/packages/perl-check.scm

+(define-public perl-fennec-lite

+ (package

+ (name "perl-fennec-lite")

+ (version "0.004")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/E/EX/EXODIST/Fennec-Lite-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "1aywy5vswrl9mv669cdp3kl9is06bi090bd55bwjyb3n68wqxqnw"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build))

+ (home-page "https://metacpan.org/release/Fennec-Lite")

+ (synopsis "Set of testing-related modules")

+ (description

+ "Fennec ties together several testing related modules and enhances their

+functionality in ways you don't get loading them individually.

+@code{Fennec::Lite} takes a minimalist approach to do for Fennec what Mouse

+does for Moose.")

+ (license perl-license)))

+

+++ b/gnu/packages/perl-check.scm

+(define-public perl-test-file-sharedir

+ (package

+ (name "perl-test-file-sharedir")

+ (version "1.001002")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/K/KE/KENTNL/Test-File-ShareDir-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1bbs6cx69wcinq77gif4i4pmrj8a7lwb92sgvvxzrwmjnk5lfdmk"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-test-fatal))

+ (propagated-inputs (list perl-class-tiny

+ perl-file-copy-recursive

+ perl-file-sharedir

+ perl-path-tiny

+ perl-scope-guard))

+ (home-page "https://metacpan.org/release/Test-File-ShareDir")

+ (synopsis "Create a Fake ShareDir for your modules for testing.")

+ (description

+ "@code{Test::File::ShareDir} is some low level plumbing to enable a

+distribution to perform tests while consuming its own share directories in a

+manner similar to how they will be once installed.")

+ (license perl-license)))

+

+++ b/gnu/packages/perl-check.scm

+(define-public perl-test-fork

+ (package

+ (name "perl-test-fork")

+ (version "0.02")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MS/MSCHWERN/Test-Fork-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "0gnh8m81fdrwmzy1fix12grfq7sf7nn0gbf24zlap1gq4kxzpzpw"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build))

+ (home-page "https://metacpan.org/release/Test-Fork")

+ (synopsis "Test code which forks")

+ (description

+ "Testing code which forks is problematic because each test has a number

+associated with it. Coordinating the test number amongst the parent and child

+processes is complicated. @code{Test::Fork} provides a function to smooth over

+the complications.")

+ (license perl-license)))

+

+++ b/gnu/packages/perl-check.scm

+(define-public perl-test-mockrandom

+ (package

+ (name "perl-test-mockrandom")

+ (version "1.01")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/D/DA/DAGOLDEN/Test-MockRandom-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1q6c474ya9najgj4wzgj0waj56ykrj3fxhgvkb1ylpgwhh6r6516"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Test-MockRandom")

+ (synopsis

+ "Replaces random number generation with non-random number generation")

+ (description

+ "This module can test routines that manipulate random numbers by

+providing a known output from @code{rand}. Given a list of seeds with

+@code{srand}, it will return each in turn. After seeded random numbers are

+exhausted, it will always return 0. Seed numbers must be of a form that

+meets the expected output from @code{rand} as called with no arguments: they

+must be between 0 (inclusive) and 1 (exclusive). In order to facilitate

+generating and testing a nearly-one number, this module exports the function

+@code{oneish}, which returns a number just fractionally less than one.")

+ (license asl2.0)))

+

+++ b/gnu/packages/perl.scm

+ (version "1.24")

+ (base32 "0vk0d48hw90x67p5sfhmshzj2x5j7dr3ny17wb71fvfhhnr6pkx5"))))

+ (native-inputs (list perl-test-most))

+++ b/gnu/packages/perl.scm

+(define-public perl-config-simple

+ (package

+ (name "perl-config-simple")

+ (version "4.58")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/S/SH/SHERZODR/Config-Simple-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1d7dhvis1i03xlj8z3g5l8mz88kf7dn13zngbjhq94qgdxq9b6fx"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Config-Simple")

+ (synopsis "Simple configuration file class")

+ (description

+ "@code{Config::Simple} is a class representing configuration file object.

+It supports several configuration file syntax and tries to identify the file

+syntax automatically. The library supports parsing, updating and creating

+configuration files.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-constant

+ (package

+ (name "perl-constant")

+ (version "1.33")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/constant-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "015my616h5l2fswh52x4dp3n007gk5lax83ww9q6cmzb610mv5kr"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/constant")

+ (synopsis "Perl pragma to declare constants")

+ (description

+ "This pragma allows you to declare constants at compile-time. When a

+constant is used in an expression, Perl replaces it with its value at compile

+time, and may then optimize the expression further. In particular, any code

+in an @code{if (CONSTANT)} block will be optimized away if the constant is

+false.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-critic-policy-perlsecret

+ (package

+ (name "perl-critic-policy-perlsecret")

+ (version "0.0.11")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/L/LA/LANCEW/Perl-Critic-Policy-Perlsecret-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0gmagglqq6vxprk9a5c42w8nhj621fplvzvc2wnb7jaky57r2rl8"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-critic

+ perl-test-failwarnings

+ perl-test-fatal))

+ (propagated-inputs (list perl-critic))

+ (home-page "https://metacpan.org/release/Perl-Critic-Policy-Perlsecret")

+ (synopsis "Prevent perlsecrets entering your codebase")

+ (description

+ "This policy checks for perlsecret operators in your code and warns you

+about them. You can override the secrets that are allowed or disallowed using

+the parameters @code{allow_secrets} and @code{disallow_secrets}. The default

+is to simply disallow everything.")

+ (license license:gpl3)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-data-messagepack

+ (package

+ (name "perl-data-messagepack")

+ (version "1.02")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/S/SY/SYOHEX/Data-MessagePack-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1dxih8s9a5rd0vg0nd9i0gb0m5zyvxw26bl88x0jb3daj13v8gf3"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build

+ perl-module-build-xsutil

+ perl-test-requires))

+ (home-page "https://metacpan.org/release/Data-MessagePack")

+ (synopsis "MessagePack serializing/deserializing")

+ (description

+ "This module converts Perl data structures to MessagePack and vice versa.

+MessagePack is a binary-based efficient object serialization format. It

+enables to exchange structured objects between many languages like JSON. But

+unlike JSON, it is very fast and small.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-datetime-format-mysql

+ (package

+ (name "perl-datetime-format-mysql")

+ (version "0.0701")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/X/XM/XMIKEW/DateTime-Format-MySQL-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1pb0ri9npbwpaf1lzmm51w4wfyj96n80yg7wga7ig34c0hg4a463"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build))

+ (propagated-inputs (list perl-datetime

+ perl-datetime-format-builder))

+ (home-page "https://metacpan.org/release/DateTime-Format-MySQL")

+ (synopsis "Parse and format MySQL dates and times")

+ (description

+ "This module understands the formats used by MySQL for its DATE,

+DATETIME, TIME, and TIMESTAMP data types. It can be used to parse these

+formats in order to create DateTime objects, and it can take a DateTime object

+and produce a string representing it in the MySQL format.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-datetime-format-sqlite

+ (package

+ (name "perl-datetime-format-sqlite")

+ (version "0.11")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/C/CF/CFAERBER/DateTime-Format-SQLite-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1d4ln8x5bjpqmgnbbi2h16knfz674dsgvk6x7m60v6ykw454w7yc"))))

+ (build-system perl-build-system)

+ (propagated-inputs (list perl-datetime

+ perl-datetime-format-builder))

+ (home-page "https://metacpan.org/release/DateTime-Format-SQLite")

+ (synopsis "Parse and format SQLite dates and times")

+ (description

+ "This module understands the formats used by SQLite for its date,

+datetime and time functions. It can be used to parse these formats in order

+to create DateTime objects, and it can take a DateTime object and produce a

+timestring accepted by SQLite.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-datetime-format-pg

+ (package

+ (name "perl-datetime-format-pg")

+ (version "0.16014")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/D/DM/DMAKI/DateTime-Format-Pg-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1f8fpv655x8w9zaa65lp1yn0pianjv5l4qvg6v1q9hsda9k9dfrq"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build-tiny))

+ (propagated-inputs (list perl-datetime

+ perl-datetime-format-builder

+ perl-datetime-timezone))

+ (home-page "https://metacpan.org/release/DateTime-Format-Pg")

+ (synopsis "Parse and format PostgreSQL dates and times")

+ (description

+ "This module understands the formats used by PostgreSQL for its DATE,

+TIME, TIMESTAMP, and INTERVAL data types. It can be used to parse these

+formats in order to create DateTime or DateTime::Duration objects, and it can

+take a DateTime or @code{DateTime::Duration} object and produce a string

+representing it in a format accepted by PostgreSQL.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-exporter-declare

+ (package

+ (name "perl-exporter-declare")

+ (version "0.114")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/E/EX/EXODIST/Exporter-Declare-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1r6ly42g5x8highwng13y5c3lndqjfnd8666wjknnvvglxn0vmsb"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-fennec-lite

+ perl-module-build

+ perl-test-exception))

+ (propagated-inputs (list perl-aliased

+ perl-meta-builder))

+ (home-page "https://metacpan.org/release/Exporter-Declare")

+ (synopsis "Meta-driven exporting tool")

+ (description

+ "@code{Exporter::Declare} is a meta-driven exporting tool. It tries to

+adopt all the good features of other exporting tools, while replacing bad

+interfaces. @code{Exporter::Declare} also provides hooks that allow you to add

+options and arguments for import. @code{Exporter::Declare}'s meta-driven

+system allows for top-notch introspection.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+ #:use-module (gnu packages file)

+(define-public perl-file-libmagic

+ (package

+ (name "perl-file-libmagic")

+ (version "1.23")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/D/DR/DROLSKY/File-LibMagic-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1vk775386z4pz4y8m916rhlczs5rw12s36s3vx67mn5jgkfb3rjj"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:tests? #f)) ;1/33 fails, "gzip file is application/pdf ..."

+ (native-inputs (list perl-config-autoconf perl-test-fatal))

+ (inputs (list file))

+ (home-page "https://metacpan.org/release/File-LibMagic")

+ (synopsis "Determine MIME types of data or files using libmagic")

+ (description

+ "The @code{File::LibMagic} module is a simple perl interface to libmagic

+from the file package.")

+ (license (package-license perl))))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-function-parameters

+ (package

+ (name "perl-function-parameters")

+ (version "2.002003")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MA/MAUKE/Function-Parameters-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0ba317h659jrvnqf816ygyh656j8n524985na42irhzbx0qkqlak"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-test-fatal))

+ (home-page "https://metacpan.org/release/Function-Parameters")

+ (synopsis

+ "Define functions and methods with parameter lists")

+ (description

+ "This module provides two new keywords, @code{fun} and @code{method}, for

+defining functions and methods with parameter lists. At minimum this saves you

+from having to unpack @code{@@_} manually, but this module can do much more.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-gd

+ (package

+ (name "perl-gd")

+ (version "2.77")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://cpan/authors/id/R/RU/RURBAN/GD-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1dbg040nkbv8jjgabzjpmay5ysvg3cgxsqmv5771dq1vxyw8hv5m"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-extutils-pkgconfig perl-test-fork))

+ (inputs (list gd))

+ (home-page "https://metacpan.org/release/GD")

+ (synopsis "Perl interface to the libgd graphics library")

+ (description

+ "@file{GD.pm} is a Perl interface to the gd graphics library. GD allows

+you to create color drawings using a large number of graphics primitives, and

+emit the drawings as PNG files.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+ #:use-module (gnu packages graphviz)

+(define-public perl-graphviz

+ (package

+ (name "perl-graphviz")

+ (version "2.26")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://cpan/authors/id/E/ET/ETJ/GraphViz-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0a3kv92z9gykwgh8py5y67wygy25lijdfb97fl2g6ar6nch2apcs"))))

+ (build-system perl-build-system)

+ (inputs (list graphviz))

+ (propagated-inputs (list perl-file-which

+ perl-ipc-run

+ perl-libwww

+ perl-parse-recdescent

+ perl-xml-twig

+ perl-xml-xpath))

+ (home-page "https://metacpan.org/release/GraphViz")

+ (synopsis "Perl interface to Graphviz")

+ (description

+ "This module provides an interface to layout and image generation of

+directed and undirected graphs in a variety of formats (PostScript, PNG, etc.)

+using the @code{dot}, @code{neato}, @code{twopi}, @code{circo}, and @code{fdp}

+programs from the Graphviz project. This package is deprecated in favour of

+GraphViz2.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-log-contextual

+ (package

+ (name "perl-log-contextual")

+ (version "0.008001")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/F/FR/FREW/Log-Contextual-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "14qr8p4hkji0bzp4xhajq440hqx5rm1h5c736v452vbrp3xvqg5r"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-test-fatal))

+ (propagated-inputs (list perl-data-dumper-concise

+ perl-exporter-declare

+ perl-moo))

+ (home-page "https://metacpan.org/release/Log-Contextual")

+ (synopsis "Simple logging interface with a contextual log")

+ (description

+ "This module is a simple interface to extensible logging. It exists to

+abstract your logging interface so that logging is as painless as possible,

+while still allowing you to switch from one logger to another.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-mail-rfc822-address

+ (package

+ (name "perl-mail-rfc822-address")

+ (version "0.3")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/P/PD/PDWARREN/Mail-RFC822-Address-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "19y8hhb7hywyfpmiws1wwnkx2hw2mqzj824hwv55wryb9q8g87im"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Mail-RFC822-Address")

+ (synopsis

+ "Perl extension for validating email addresses according to RFC822")

+ (description

+ "@code{Mail::RFC822::Address} validates email addresses against the

+grammar described in RFC 822 using regular expressions.")

+ (license license:expat)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-meta-builder

+ (package

+ (name "perl-meta-builder")

+ (version "0.004")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/E/EX/EXODIST/Meta-Builder-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1zjnrwwvjxbw1baicr2amsyy7gr18nkmflxq3sr9vsq6fam9kd5c"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-fennec-lite

+ perl-module-build

+ perl-test-exception))

+ (home-page "https://metacpan.org/release/Meta-Builder")

+ (synopsis "Tools for creating Meta objects to track custom metrics")

+ (description

+ "@code{Meta::Builder} is designed to be a generic tool for writing Meta

+objects. Unlike specialized tools, @code{Meta::Builder} makes no assumptions

+about what metrics you will care about. @code{Meta::Builder} also makes it

+simple for others to extend your meta-object based tools by providing hooks

+for other packages to add metrics to your meta object.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-mldbm

+ (package

+ (name "perl-mldbm")

+ (version "2.05")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://cpan/authors/id/C/CH/CHORNY/MLDBM-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "18hp5bq5jl6v1prc9sz6xkpys0q27vhlfivkysxim0101knq0s2q"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build))

+ (propagated-inputs (list perl-carp perl-data-dumper perl-storable))

+ (home-page "https://metacpan.org/release/MLDBM")

+ (synopsis "Store a Perl hash structure in single level tied hash")

+ (description

+ "This module can serve as a transparent interface to any TIEHASH package

+that is required to store arbitrary perl data, including nested references.

+Thus, this module can be used for storing references and other arbitrary data

+within DBM databases.")

+ (license (package-license perl))))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-package-variant

+ (package

+ (name "perl-package-variant")

+ (version "1.003002")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MS/MSTROUT/Package-Variant-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1p1n2ny5fb15bcbykyn523w6sv968gqs7nhjfm36dpac5yfq9vdj"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-moo perl-test-fatal perl-test-most))

+ (propagated-inputs (list perl-carp

+ perl-import-into

+ perl-module-runtime

+ perl-strictures-2))

+ (home-page "https://metacpan.org/release/Package-Variant")

+ (synopsis "Parameterizable packages")

+ (description

+ "This module allows you to build a variable package that contains a

+package template and can use it to build variant packages at runtime. Your

+variable package will export a subroutine which will build a variant package,

+combining its arguments with the template, and return the name of the new

+variant package. The implementation does not care about what kind of packages

+it builds, be they simple function exporters, classes, singletons or something

+else.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-safe-hole

+ (package

+ (name "perl-safe-hole")

+ (version "0.14")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/T/TO/TODDR/Safe-Hole-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "01gc2lfli282dj6a2pkpxb0vmpyavs323cbdw15gxi06pn5nxxgl"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build))

+ (home-page "https://metacpan.org/release/Safe-Hole")

+ (synopsis "Use main compartment subroutines from the Safe compartment")

+ (description

+ "@code{Safe::Hole} can execute outside defined subroutines in the

+original main compartment from the Safe compartment.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-spreadsheet-parseexcel

+ (package

+ (name "perl-spreadsheet-parseexcel")

+ (version "0.65")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/D/DO/DOUGW/Spreadsheet-ParseExcel-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1v2vcz0q2xlbrh4qzij023zm2vy46ps1c8g11xj833fmkd1cpi3f"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:tests? #f ;2/32 fail (tests 10 and 11)

+ #:phases #~(modify-phases %standard-phases

+ (add-after 'unpack 'patch-md5

+ (lambda _

+ (substitute* (find-files "." "\\.pm$")

+ (("Digest::Perl::MD5")

+ "Digest::MD5"))

+ ;; avoid decoding-error when parsing

+ ;; 03_regression.t

+ (substitute* (find-files "." "\\.[1-9]\\.t$")

+ (("Digest::Perl::MD5")

+ "Digest::MD5")))))))

+ (native-inputs (list perl-test-most))

+ (propagated-inputs (list perl-crypt-rc4

+ perl-digest-md5

+ perl-io-stringy

+ perl-ole-storage-lite))

+ (home-page "https://metacpan.org/release/Spreadsheet-ParseExcel")

+ (synopsis "Reads information from an Excel file")

+ (description

+ "The @code{Spreadsheet::ParseExcel} module can be used to read

+information from Excel 95-2003 binary files. The module cannot read files in

+the Excel 2007 Open XML XLSX format.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+ (version "2.006008")

+ (base32 "1chm1n08l8qcqq87231pfa085bw79mcvrwm27vl64mzm198bvgll"))))

+++ b/gnu/packages/perl.scm

+(define-public perl-text-autoformat

+ (package

+ (name "perl-text-autoformat")

+ (version "1.75")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/N/NE/NEILB/Text-Autoformat-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0wdpqq1cds68i1clx2y22bnnm558d12sr7dmypdv9i5f7p7g9m4x"))))

+ (build-system perl-build-system)

+ (propagated-inputs (list perl-text-reform))

+ (home-page "https://metacpan.org/release/Text-Autoformat")

+ (synopsis "Automatic text wrapping and reformatting")

+ (description

+ "The fundamental task of the autoformat subroutine is to identify and

+rearrange independent paragraphs in a text. Paragraphs typically consist of a

+series of lines containing at least one non-whitespace character, followed by

+one or more lines containing only optional whitespace. This is a more liberal

+definition than many other formatters use: most require an empty line to

+terminate a paragraph. Paragraphs may also be denoted by bulleting, numbering,

+or quoting (see the following sections).")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-text-brew

+ (package

+ (name "perl-text-brew")

+ (version "0.02")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/K/KC/KCIVEY/Text-Brew-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "0k7nxglbx5pxl693zrj1fsi094sf1a3vqsrn73inzz7r3j28a6xa"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Text-Brew")

+ (synopsis "An implementation of the Brew edit distance")

+ (description

+ "This module implements the Brew edit distance that is very close to the

+dynamic programming technique used for the Wagner-Fischer (and so for the

+Levenshtein) edit distance.")

+ (license (package-license perl))))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-time-warp

+ (package

+ (name "perl-time-warp")

+ (version "0.55")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MA/MANWAR/Time-Warp-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "1a7g3i9nad7m2qvwl7bssnq083s2nsdnzxq42k2x6j8bimfgm8sc"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Time-Warp")

+ (synopsis "Control over the measurement of time")

+ (description

+ "The @code{Time::Warp} module offers developers control over the

+measurement of time.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-text-iconv

+ (package

+ (name "perl-text-iconv")

+ (version "1.7")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MP/MPIOTR/Text-Iconv-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "1hymsbkjkl43wg74p7hgpyjl8yx1chc9g25spj9l7lq9wzavg02v"))))

+ (build-system perl-build-system)

+ (inputs (list libiconv))

+ (home-page "https://metacpan.org/release/Text-Iconv")

+ (synopsis "Perl interface to iconv() codeset conversion function")

+ (description

+ "This module provides a Perl interface to the @code{iconv()} codeset

+conversion function, as defined by the Single UNIX Specification. For

+more details see the POD documentation embedded in the file @file{Iconv.pm},

+which will also be installed as @code{Text::Iconv(3)} man page.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-text-recordparser

+ (package

+ (name "perl-text-recordparser")

+ (version "1.6.5")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://cpan/authors/id/K/KC/KCLARK/"

+ "Text-RecordParser-" version ".tar.gz"))

+ (sha256

+ (base32

+ "0nn33c058bl957v38xhqig4ld34lifl4arqiilhxky339i0q2fys"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:phases #~(modify-phases %standard-phases

+ (add-before 'check 'set-home

+ (lambda _

+ (setenv "HOME" "/tmp"))))))

+ (native-inputs (list graphviz

+ perl-module-install

+ perl-test-exception))

+ (propagated-inputs (list perl-class-accessor

+ perl-graphviz

+ perl-io-stringy

+ perl-list-moreutils

+ perl-readonly

+ perl-text-autoformat

+ perl-text-tabulardisplay))

+ (home-page "https://metacpan.org/release/Text-RecordParser")

+ (synopsis "Parse record-oriented data in a text file")

+ (description

+ "This module is for reading record-oriented data in a delimited text

+file. The most common example have records separated by newlines and fields

+separated by commas or tabs, but this module aims to provide a consistent

+interface for handling sequential records in a file however they may be

+delimited.")

+ (license license:gpl2)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-text-reform

+ (package

+ (name "perl-text-reform")

+ (version "1.20")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/C/CH/CHORNY/Text-Reform-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "0qdfnhfn8frnkbpkkw64fhnnxsbb6mmb6dr30c0p1jdaq7c2syd8"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build))

+ (home-page "https://metacpan.org/release/Text-Reform")

+ (synopsis "Manual text wrapping and reformatting")

+ (description

+ "The @code{form()} subroutine may be exported from the module. It takes

+a series of format (or \"picture\") strings followed by replacement values,

+interpolates those values into each picture string, and returns the result.

+The effect is similar to the inbuilt perl format mechanism, although the

+field specification syntax is simpler and some of the formatting behaviour is

+more sophisticated.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-text-tabulardisplay

+ (package

+ (name "perl-text-tabulardisplay")

+ (version "1.38")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/D/DA/DARREN/Text-TabularDisplay-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1s46s4pg5mpfllx3icf4vnqz9iadbbdbsr5p7pr6gdjnzbx902gb"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Text-TabularDisplay")

+ (synopsis "Display text in formatted table output")

+ (description

+ "@code{Text::TabularDisplay} simplifies displaying textual data in a

+table. The output is identical to the columnar display of query results in

+the mysql text monitor.")

+ (license license:gpl2)))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-tie-hash-method

+ (package

+ (name "perl-tie-hash-method")

+ (version "0.02")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/Y/YV/YVES/Tie-Hash-Method-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1a9jxhg1jl5rcxnhcmgadl3wcznzjihwxgd1chgcmxqk2jszn4ym"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Tie-Hash-Method")

+ (synopsis "Tied hash with specific methods overriden by callbacks")

+ (description

+ "@code{Tie::Hash::Method} provides a way to create a tied hash with

+specific overriden behaviour without having to create a new class to do it. A

+tied hash with no methods overriden is functionally equivalent to a normal

+hash.")

+ (license (package-license perl))))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-user

+ ;; This is a trivial Perl module that appears to be maintained by Debian

+ ;; internally for use in debbugs.

+ (package

+ (name "perl-user")

+ (version "1.9")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (string-append

+ "http://deb.debian.org/debian/pool/main/libu/libuser-perl/"

+ "libuser-perl_" version ".orig.tar.gz"))

+ (sha256

+ (base32

+ "1ncgr0sxkmqr33ias3yv6cnr3l6mcyxcsbr9n6y0g6mx9h1iiasv"))))

+ (build-system perl-build-system)

+ (home-page "https://tracker.debian.org/pkg/libuser-perl")

+ (synopsis "Provides user data in an OS independent manner")

+ (description "This module is allows applications to retrieve per-user

+characteristics.")

+ (license (package-license perl))))

+

+++ b/gnu/packages/perl.scm

+(define-public perl-text-xslate

+ (package

+ (name "perl-text-xslate")

+ (version "3.5.9")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/S/SK/SKAJI/Text-Xslate-v" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "103lhyqqv53x9rqsnxcba3pc4qkbwnjsw3gpyd7rjm0aw65mrj20"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-file-copy-recursive

+ perl-module-build

+ perl-module-build-xsutil

+ perl-test-requires))

+ (propagated-inputs (list perl-data-messagepack perl-mouse))

+ (home-page "https://metacpan.org/release/Text-Xslate")

+ (synopsis "Scalable template engine for Perl5")

+ (description

+ "Xslate is a template engine, tuned for persistent applications, safe as

+an HTML generator, and with rich features. The core design principle is that

+template logic does not have access outside the template without permission.")

+ (license (package-license perl))))

+

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-gravatar-url

+ (package

+ (name "perl-gravatar-url")

+ (version "1.07")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MS/MSCHWERN/Gravatar-URL-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1mxnd70xsb7kxd1sf8s7phcds2nf0m8b8asmy3ikv76wzfpbvji3"))))

+ (build-system perl-build-system)

+ (native-inputs (list perl-module-build

+ perl-test-mockrandom

+ perl-test-warn))

+ (propagated-inputs (list perl-net-dns perl-uri))

+ (home-page "https://metacpan.org/release/Gravatar-URL")

+ (synopsis "Make URLs for Gravatars from an email address")

+ (description

+ "This module looks up the Gravatar for any email address by constructing

+a URL to get the image from @url{gravatar.com}. A Gravatar is a Globally

+Recognized Avatar for a given email address. This allows you to have a global

+picture associated with your email address.")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-soap-lite

+ (package

+ (name "perl-soap-lite")

+ (version "1.27")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/P/PH/PHRED/SOAP-Lite-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "00fkvmnxiy5mr45rj5qmxmflw0xdkw2gihm48iha2i8smdmi0ng3"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:phases #~(modify-phases %standard-phases

+ (add-after 'unpack 'patch

+ (lambda _

+ (substitute* "t/Issues/rt53375.t"

+ (("XML::Parser::Lite")

+ "XML::Parser")))))))

+ (native-inputs (list perl-test-most perl-test-warn))

+ (propagated-inputs (list perl-class-inspector

+ perl-constant

+ perl-io-compress

+ perl-io-sessiondata

+ perl-io-socket-ssl

+ perl-libwww

+ perl-lwp-protocol-https

+ perl-mime-base64

+ perl-scalar-list-utils

+ perl-task-weaken

+ perl-uri

+ perl-xml-parser))

+ (home-page "https://metacpan.org/release/SOAP-Lite")

+ (synopsis "Client/server interface to the Simple Object Access Protocol")

+ (description

+ "@code{SOAP::Lite} is a collection of Perl modules that provide a

+simple and lightweight interface to the

+@acronym{SOAP, Simple Object Access Protocol}, both on client and server

+side.")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+ #:use-module (guix build-system copy)

+

+(define-public geolite-country-data

+ ;; TODO: Figure out how to get an updated, free database.

+ (hidden-package

+ (package

+ (name "geolite-country-data")

+ (version "2019-12-06")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "https://web.archive.org/web/20181229152721/"

+ "http://geolite.maxmind.com/download/geoip/database/"

+ "GeoLiteCountry/" "GeoIP.dat.gz"))

+ (sha256

+ (base32

+ "0j84ms2x893cpn7x8gffy082gnx882pmr0f6zpfsd46gpyw5xh5r"))))

+ (build-system copy-build-system)

+ (arguments

+ (list #:install-plan #~'(("GeoIP.dat" "share/GeoIP/"))))

+ (home-page "https://dev.maxmind.com/geoip/geolite2-free-geolocation-data")

+ (synopsis "Country-level GeoIP data (December 2018)")

+ (description

+ "This package provides an old GeoIP database in the legacy @file{.dat}

+format. The data was collected before MaxMind changed the license and format

+of their databases. It is intended only as a compatability package for

+SpamAssassin.")

+ (license license:cc-by-sa4.0))))

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-geo-ip

+ (package

+ (name "perl-geo-ip")

+ (version "1.51")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MA/MAXMIND/Geo-IP-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1fka8fr7fw6sh3xa9glhs1zjg3s2gfkhi7n7da1l2m2wblqj0c0n"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:phases #~(modify-phases %standard-phases

+ (add-after 'unpack 'patch

+ (lambda _

+ (substitute* "lib/Geo/IP.pm"

+ (("/usr/local/share/GeoIP/GeoIP.dat")

+ (string-append

+ #$(this-package-input "geolite-country-data")

+ "/share/GeoIP/GeoIP.dat"))))))))

+ (inputs (list geolite-country-data))

+ (home-page "https://metacpan.org/release/Geo-IP")

+ (synopsis "Look up location and network information by IP Address")

+ (description

+ "The Perl module @code{Geo::IP} looks up location and network information

+by IP Address.")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-io-sessiondata

+ (package

+ (name "perl-io-sessiondata")

+ (version "1.03")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/P/PH/PHRED/IO-SessionData-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "1p9d77pqy9a8dbgw7h7vmmkg0rlckk19dchd4c8gvcyv7qm73934"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/IO-SessionData")

+ (synopsis "Supporting module for SOAP::Lite")

+ (description

+ "Package extracted from SOAP::Lite. Slightly modified to work on

+multiple platforms.")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+(define-public perl-razor2-client-agent

+ ;; TODO: Package razor-agents and razor-agents-sdk

+ (package

+ (name "perl-razor2-client-agent")

+ (version "2.86")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/T/TO/TODDR/Razor2-Client-Agent-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0pw4jhxhm2naqkz0h3gjgdjnygf4019zmvp712vj8pmnxc12w1jy"))))

+ (build-system perl-build-system)

+ (propagated-inputs (list perl-digest-sha1 perl-uri))

+ (home-page "https://metacpan.org/release/Razor2-Client-Agent")

+ (synopsis "Collaborative, content-based spam filtering network agent.")

+ (description

+ "This package provides a client library for Vipul's Razor. Vipul's Razor

+is a distributed, collaborative, spam detection and filtering network.

+Through user contribution, Razor establishes a distributed and constantly

+updating catalogue of spam in propagation that is consulted by email clients

+to filter out known spam. Detection is done with statistical and randomized

+signatures that efficiently spot mutating spam content. User input is

+validated through reputation assignments based on consensus on report and

+revoke assertions which in turn is used for computing confidence values

+associated with individual signatures.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-net-smtps

+ (package

+ (name "perl-net-smtps")

+ (version "0.10")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/T/TO/TOMO/src/Net-SMTPS-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "1w6h7yjbk6a8xyi6rxgb0xlp2yqn55axl23wnqx687fy9y7gmzx9"))))

+ (build-system perl-build-system)

+ (propagated-inputs (list perl-authen-sasl

+ perl-io-socket-ssl))

+ (home-page "https://metacpan.org/release/Net-SMTPS")

+ (synopsis "SSL/STARTTLS support for Net::SMTP")

+ (description

+ "This module implements a wrapper for @code{Net::SMTP}, enabling

+over-SSL/STARTTLS support. This module inherits most of all the methods from

+@code{Net::SMTP}(2.X).")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-net-ip

+ (package

+ (name "perl-net-ip")

+ (version "1.26")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://cpan/authors/id/M/MA/MANU/Net-IP-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0ffn2xqqbkfi7v303sp5dwgbv36jah3vg8r4nxhxfiv60vric3q4"))))

+ (build-system perl-build-system)

+ (home-page "https://metacpan.org/release/Net-IP")

+ (synopsis "Perl extension for manipulating IPv4/IPv6 addresses")

+ (description

+ "This module provides functions to deal with IPv4/IPv6 addresses. The

+module can be used as a class, allowing the user to instantiate IP objects,

+which can be single IP addresses, prefixes, or ranges of addresses. There is

+also a procedural way of accessing most of the functions. Most subroutines can

+take either IPv4 or IPv6 addresses transparently.")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+

+(define-public perl-net-imap-simple

+ (package

+ (name "perl-net-imap-simple")

+ (version "1.2212")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/J/JE/JETTERO/Net-IMAP-Simple-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0mbzbfn0v1x1brd8nsyw8bzdkz31lw9qp7h6nrl3fcxylc5cs4lq"))))

+ (build-system perl-build-system)

+ (propagated-inputs (list perl-parse-recdescent))

+ (home-page "https://metacpan.org/release/Net-IMAP-Simple")

+ (synopsis "Perl extension for simple IMAP account handling.")

+ (description

+ "This package provides a class method constructs a new

+@code{Net::IMAP::Simple} object. It takes one required parameter which is the

+server to connect to, and additional optional parameters.")

+ (license license:perl-license)))

+++ b/gnu/packages/perl-web.scm

+ #:use-module (gnu packages autotools)

+ #:use-module (gnu packages databases)

+ #:use-module (gnu packages libidn)

+ #:use-module (gnu packages mail)

+ #:use-module (gnu packages networking)

+ #:use-module (gnu packages perl-compression)

+ #:use-module (gnu packages tls)

+ #:use-module (gnu packages web)

+ #:use-module (gnu packages xml)

+ #:use-module (guix download)

+ #:use-module (guix gexp))

+

+(define-public perl-mail-dmarc

+ (package

+ (name "perl-mail-dmarc")

+ (version "1.20230215")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/M/MB/MBRADSHAW/Mail-DMARC-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "00xrgq7cz75aj2m6bpfrb162fi0kyr016579as7494nbb53zbp2p"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:tests? #f)) ;some require network, like 03.Base and 06.Result

+ (native-inputs (list perl-file-sharedir-install

+ perl-module-build

+ perl-test-exception

+ perl-test-file-sharedir

+ perl-test-output))

+ (propagated-inputs (list perl-config-tiny

+ perl-dbd-sqlite

+ perl-dbix-simple

+ perl-email-mime

+ perl-email-sender

+ perl-email-simple

+ perl-file-sharedir

+ perl-io-socket-ssl

+ perl-mail-dkim

+ perl-net-dns

+ perl-net-idn-encode

+ perl-net-imap-simple

+ perl-net-ip

+ perl-net-smtps

+ perl-net-ssleay

+ perl-regexp-common

+ perl-socket6

+ perl-uri

+ perl-xml-libxml))

+ (home-page "https://metacpan.org/release/Mail-DMARC")

+ (synopsis "Perl implementation of DMARC")

+ (description

+ "This module is a suite of tools for implementing DMARC. It adheres to

+the 2013 DMARC draft, intending to implement every MUST and every SHOULD.")

+ (license license:perl-license)))

+

+++ b/gnu/packages/perl-web.scm

+(define-public perl-net-libidn

+ (package

+ (name "perl-net-libidn")

+ (version "0.12")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/T/TH/THOR/Net-LibIDN-" version

+ ".tar.gz"))

+ (sha256

+ (base32

+ "05xvpn9z7dpv62a5wgjx1n9kxblkqsgl9kb3vk3nx1mk8aacr2ig"))))

+ (build-system perl-build-system)

+ (inputs (list libidn))

+ (home-page "https://metacpan.org/release/Net-LibIDN")

+ (synopsis "Perl bindings for GNU Libidn")

+ (description

+ "The package provides bindings for GNU Libidn, a C library for handling

+Internationalized Domain Names according to IDNA (RFC 3490), in a way very

+much inspired by Turbo Fredriksson's PHP-IDN.")

+ (license (list license:gpl1+ license:clarified-artistic))))

+

+++ b/gnu/packages/perl-web.scm

+(define-public spamassassin

+ (package

+ (name "spamassassin")

+ (version "4.0.0")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "mirror://cpan/authors/id/S/SI/SIDNEY/Mail-SpamAssassin-"

+ version ".tar.gz"))

+ (sha256

+ (base32

+ "0djgm04kvgq0iab4hhv66gxhl2bhyhj1lfpjcdsw7qq3s6krv5v5"))

+ (modules '((guix build utils)))

+ (snippet #~(delete-file "spamc/configure"))))

+ (build-system perl-build-system)

+ (arguments

+ (list #:phases #~(modify-phases %standard-phases

+ (add-before 'configure 'setup

+ (lambda _

+ (delete-file "t/debug.t") ;hangs

+ (delete-file "t/dnsbl_subtests.t") ;6 failures

+ (delete-file "t/spamc_x_e.t") ;3 failures

+ (setenv "CONFIG_SHELL" (which "sh"))

+ (with-directory-excursion "spamc"

+ (invoke "autoreconf" "-vif"))))

+ (add-after 'install 'fix-lib-path

+ (lambda _

+ (let ((bin (string-append #$output "/bin/")))

+ (for-each

+ (lambda (file)

+ (substitute* file

+ ;; TODO: Can we find a way to keep -T?

+ (("perl -T")

+ "perl"))

+ (wrap-program file

+ `("PERL5LIB" ":" prefix

+ (,(getenv "PERL5LIB")

+ ,(string-append

+ #$output

+ "/lib/perl5/site_perl")))))

+ (map (lambda (file)

+ (string-append bin file))

+ '("spamd" "sa-awl" "sa-check_spamd"

+ "sa-compile" "sa-learn"

+ "sa-update" "spamassassin")))))))))

+ (native-inputs (list autoconf

+ automake

+ perl-devel-cycle

+ perl-net-dns

+ perl-critic

+ perl-critic-policy-perlsecret

+ perl-test-most

+ perl-test-pod

+ perl-text-diff))

+ (propagated-inputs (list perl-archive-zip

+ perl-bsd-resource

+ perl-dbd-sqlite

+ perl-dbi

+ perl-email-address-xs

+ perl-encode-detect

+ perl-geo-ip

+ perl-html-parser

+ perl-io-socket-inet6

+ perl-io-socket-ssl

+ perl-io-string

+ perl-libwww

+ perl-mail-dkim

+ perl-mail-dmarc

+ perl-mail-spf

+ perl-net-cidr-lite

+ perl-net-dns

+ perl-net-ip

+ perl-net-libidn

+ perl-net-patricia

+ perl-netaddr-ip

+ perl-razor2-client-agent))

+ (home-page "https://metacpan.org/release/Mail-SpamAssassin")

+ (synopsis

+ "Extensible email filter used to identify spam")

+ (description

+ "Apache SpamAssassin is an anti-spam platform giving system

+administrators a filter to classify email and block spam (unsolicited bulk

+email). It uses a robust scoring framework and plug-ins to integrate a wide

+range of advanced heuristic and statistical analysis tests on email headers

+and body text including text analysis, Bayesian filtering, DNS blocklists,

+and collaborative filtering databases.")

+ (license license:asl2.0)))