(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))

(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)))


(list
 perl-tidy
 perl-b-lint)