From efe47381c599b07e4c7bbdb2e91e8090a541c887 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 17:53:52 +0200
Subject: Adding upstream version 2.23.4+deb12u1.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 lib/Devscripts/Uscan/Ctype/nodejs.pm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 lib/Devscripts/Uscan/Ctype/nodejs.pm

(limited to 'lib/Devscripts/Uscan/Ctype/nodejs.pm')

diff --git a/lib/Devscripts/Uscan/Ctype/nodejs.pm b/lib/Devscripts/Uscan/Ctype/nodejs.pm
new file mode 100644
index 0000000..6a89063
--- /dev/null
+++ b/lib/Devscripts/Uscan/Ctype/nodejs.pm
@@ -0,0 +1,36 @@
+package Devscripts::Uscan::Ctype::nodejs;
+
+use strict;
+
+use Moo;
+use JSON;
+use Devscripts::Uscan::Output;
+
+has dir => (is => 'ro');
+has pkg => (
+    is      => 'rw',
+    lazy    => 1,
+    default => sub {
+        $_[0]->{dir} . '/package.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;
-- 
cgit v1.2.3