lib/Devscripts/Uscan/Ctype/perl.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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;