(define-module (xyz euandreh queue)
  #:use-module (srfi srfi-26)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system perl)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages perl-check)
  #:use-module (gnu packages language))

(define-public perl-tidy
  (package
    (name "perl-tidy")
    (version "20210111")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/S/SH/SHANCOCK/Perl-Tidy-"
                          version ".tar.gz"))
      (sha256
       (base32
        "17qqvass1n726ff1bkl8pc8yijhjy9vlm3wcc1xaykjxmz76cxi0"))))
    (build-system perl-build-system)
    (home-page "https://perltidy.github.io/perltidy/")
    (synopsis "Indent and reformat Perl code")
    (description "Perl::Tidy is a module and command-line utility to
indent and format Perl code.")
    (license license:gpl2)))

(define-public perl-b-lint
  (package
    (name "perl-b-lint")
    (version "1.20")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/B-Lint-"
                          version ".tar.gz"))
      (sha256
       (base32
        "1cqhgj17jqlrwdw2lz2sprs2zydry09y14lwhmipk2zxcj4l0jfw"))
      (patches
       ;; Taken from:
       ;; https://rt.cpan.org/Public/Bug/Display.html?id=101115
       (search-patches "xyz/euandreh/patches/B-Lint-1.20-Skip-a-bare-sub-test.patch"))))
    (build-system perl-build-system)
    (native-inputs
     `(("perl-test-harness" ,perl-test-harness)))
    (propagated-inputs
     `(("perl-module-pluggable" ,perl-module-pluggable)))
    (home-page "https://metacpan.org/pod/B::Lint")
    (synopsis "Simple linter for Perl source code")
    (description "The B::Lint module is equivalent to an extended
version of the -w option of perl.  It is named after the program lint
which carries out a similar process for C programs.")
    (license license:perl-license)))

(define-public perl-config-tiny
  (package
    (name "perl-config-tiny")
    (version "2.26")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/R/RS/RSAVAGE/Config-Tiny-"
                          version ".tgz"))
      (sha256
       (base32
        "0pyggn3yq9ffjnw3i1n5r9kg4b90jw926apbvzxq8y7cpa8k5dc3"))))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/pod/Config::Tiny")
    (synopsis "Read/Write .ini style files with as little code as possible")
    (description "Config::Tiny is a Perl class to read and write .ini
style configuration files with as little code as possible, reducing
load time and memory overhead.")
    (license license:perl-license)))

(define-public perl-pod-spell
  (package
    (name "perl-pod-spell")
    (version "1.20")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/D/DO/DOLMEN/Pod-Spell-"
                          version ".tar.gz"))
      (sha256
       (base32
        "0g6hdnc98gc3widr7sja313b1606g37a0mw0l0wxih1bwazzg0v3"))))
    (build-system perl-build-system)
    (inputs
     `(("perl-class-tiny" ,perl-class-tiny)
       ("perl-lingua-en-inflect" ,perl-lingua-en-inflect)))
    (native-inputs
     `(("perl-path-tiny" ,perl-path-tiny)
       ("perl-file-sharedir" ,perl-file-sharedir)
       ("perl-file-sharedir-install" ,perl-file-sharedir-install)
       ("perl-test-deep" ,perl-test-deep)))
    (home-page "https://metacpan.org/pod/Pod::Spell")
    (synopsis "A formatter for spellchecking Perl Pod")
    (description "Pod::Spell is a Pod formatter whose output is good
for spellchecking.  Pod::Spell rather like Pod::Text, except that it
doesn't put much effort into actual formatting, and it suppresses
things that look like Perl symbols or Perl jargon (so that your
spellchecking program won't complain about mystery words like
\"$thing\" or \"Foo::Bar\" or \"hashref\").")
    (license license:perl-license)))

(define-public perl-string-format
  (package
    (name "perl-string-format")
    (version "1.18")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/S/SR/SREZIC/String-Format-"
                          version ".tar.gz"))
      (sha256
       (base32
        "0y77frxzjifd4sw0j19cc346ysas1mya84rdxaz279lyin7plhcy"))))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/pod/String::Format")
    (synopsis "sprintf-like string formatting for Perl")
    (description "String::Format lets you define arbitrary printf-like
format sequences to be expanded.  This module would be most useful in
configuration files and reporting tools, where the results of a query
need to be formatted in a particular way.  It was inspired by mutt's
index_format and related directives.")
    (license license:perl-license)))

(define-public perl-ppix-regexp
  (package
    (name "perl-ppix-regexp")
    (version "0.078")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/W/WY/WYANT/PPIx-Regexp-"
                          version ".tar.gz"))
      (sha256
       (base32
        "0h5lfi3m08i86hw89yffcsrsq0h0k2v58j47j5yl4m0g4apg725k"))))
    (inputs
     `(("perl-ppi" ,perl-ppi)))
    (native-inputs
     `(("perl-module-build" ,perl-module-build)))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/pod/PPIx::Regexp")
    (synopsis "Represent a regular expression of some sort")
    (description "The purpose of the PPIx-Regexp package is to parse
regular expressions in a manner similar to the way the PPI package
parses Perl.  This class forms the root of the parse tree, playing a
role similar to PPI::Document.")
    (license license:perl-license)))

(define-public perl-ppix-quotelike
  (package
    (name "perl-ppix-quotelike")
    (version "0.015")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/W/WY/WYANT/PPIx-QuoteLike-"
                          version ".tar.gz"))
      (sha256
       (base32
        "16qbhryi4vdjfgx5hf6sl0hj2lv4yn1lmg9jibxrlmipnhm1qdfa"))))
    (inputs
     `(("perl-ppix-regexp" ,perl-ppix-regexp)
       ("perl-ppi" ,perl-ppi)))
    (native-inputs
     `(("perl-module-build" ,perl-module-build)
       ("perl-readonly" ,perl-readonly)))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/pod/PPIx::QuoteLike")
    (synopsis "Parse Perl string literals and string-literal-like things")
    (description "This Perl class parses Perl string literals and
things that are reasonably like string literals.  Its real reason for
being is to find interpolated variables for Perl::Critic policies and
similar code.")
    (license license:perl-license)))

(define-public perl-ppix-utilities
  (package
    (name "perl-ppix-utilities")
    (version "1.001000")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/E/EL/ELLIOTJS/PPIx-Utilities-"
                          version ".tar.gz"))
      (sha256
       (base32
        "16yb7dnz8lgq2azs8jxj1wac60kbn16x8y4py04ci8nndww87903"))))
    (inputs
     `(("perl-exception-class" ,perl-exception-class)
       ("perl-ppi" ,perl-ppi)
       ("perl-task-weaken" ,perl-task-weaken)))
    (native-inputs
     `(("perl-module-build" ,perl-module-build)
       ("perl-test-deep" ,perl-test-deep)
       ("perl-readonly" ,perl-readonly)))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/pod/PPIx::Utilities")
    (synopsis "Perl extensions to PPI")
    (description "This is a collection of functions for dealing with
PPI objects, many of which originated in Perl::Critic.  They are
organized into modules by the kind of PPI class they relate to, by
replacing the \"PPI\" at the front of the module name with
\"PPIx::Utilities\", e.g. functionality related to PPI::Nodes is in
PPIx::Utilities::Node.")
    (license license:perl-license)))

(define-public perl-critic
  (package
    (name "perl-critic")
    (version "1.138")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://cpan/authors/id/P/PE/PETDANCE/Perl-Critic-"
                          version ".tar.gz"))
      (sha256
       (base32
        "10pdi6bzgas131l5qmnmy9sbzsb484nmdhk9hdlz8kgj3vwr9l9a"))))
    (build-system perl-build-system)
    (propagated-inputs
     `(("perl-b-keywords" ,perl-b-keywords)
       ("perl-list-moreutils" ,perl-list-moreutils)
       ("perl-exception-class" ,perl-exception-class)
       ("perl-file-which" ,perl-file-which)
       ("perl-io-string" ,perl-io-string)
       ("perl-module-pluggable" ,perl-module-pluggable)
       ("perl-ppi" ,perl-ppi)
       ("perl-readonly" ,perl-readonly)
       ("perl-tidy" ,perl-tidy)
       ("perl-config-tiny" ,perl-config-tiny)
       ("perl-pod-spell" ,perl-pod-spell)
       ("perl-string-format" ,perl-string-format)
       ("perl-ppix-regexp" ,perl-ppix-regexp)
       ("perl-ppix-quotelike" ,perl-ppix-quotelike)
       ("perl-ppix-utilities" ,perl-ppix-utilities)))
    (native-inputs
     `(("perl-module-build" ,perl-module-build)
       ("perl-test-deep" ,perl-test-deep)))
    (home-page "http://perlcritic.com/")
    (synopsis "Static analyzer for Perl best-practices")
    (description "Perl::Critic is an extensible framework for creating
and applying coding standards to Perl source code.  Essentially, it
is a static source code analysis engine.")
    (license license:perl-license)))

(list
 perl-tidy
 perl-b-lint
 perl-critic)