Adding upstream version 2.21.3+deb11u1.upstream/2.21.3+deb11u1upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 36 insertions, 0 deletions

diff --git a/lib/Devscripts/Uscan/Ctype/perl.pm b/lib/Devscripts/Uscan/Ctype/perl.pm
new file mode 100644
index 0000000..ea06cfb
--- /dev/null
+++ b/lib/Devscripts/Uscan/Ctype/perl.pm
@@ -0,0 +1,36 @@
+package Devscripts::Uscan::Ctype::perl;
+
+use strict;
+
+use Moo;
+use JSON;
+use Devscripts::Uscan::Output;
+
+has dir => (is => 'ro');
+has pkg => (
+    is      => 'rw',
+    lazy    => 1,
+    default => sub {
+        $_[0]->{dir} . '/META.json';
+    });
+
+sub version {
+    my ($self) = @_;
+    return unless $self->dir and -d $self->dir;
+    unless (-r $self->pkg) {
+        uscan_warn "Unable to read $self->{pkg}, skipping current version";
+        return;
+    }
+    my ($version, $content);
+    {
+        local $/ = undef;
+        open my $f, $self->pkg;
+        $content = <$f>;
+        close $f;
+    }
+    eval { $version = decode_json($content)->{version}; };
+    uscan_warn $@ if $@;
+    return $version;
+}
+
+1;