File Coverage

blib/lib/Software/Catalog/Role/Software.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	4	0.0
condition			n/a
subroutine	2	4	50.0
pod	1	2	50.0
total	9	30	30.0

package Software::Catalog::Role::Software;

use Role::Tiny;

use PerlX::Maybe;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-17'; # DATE
our $DIST = 'Software-Catalog'; # DIST
our $VERSION = '1.0.8'; # VERSION

sub available_platform_labels {
    my $self = shift;
    sort keys %{ $self->platform_labels_to_specs };
}

sub first_matching_platform_label {
    require Devel::Platform::Info;
    require Devel::Platform::Match;

    my ($self, $platform_info) = @_;
    if (!defined($platform_info)) {
        $platform_info = Devel::Platform::Info->new->get_info;
    }

    my $platform_labels_to_specs = $self->platform_labels_to_specs;
    for my $platform_label (keys %$platform_labels_to_specs) {
        my $platform_spec = $platform_labels_to_specs->{$platform_label};
        if (Devel::Platform::Match::match_platform_bool($platform_spec, $platform_info)) {
            return $platform_label;
        }
    }
    undef;
}

requires 'archive_info';

around archive_info => sub {
    my $orig = shift;
    my ($self, %args) = @_;

    # supply default for 'platform_label' argument
    if (!defined $args{platform_label}) {
        $args{platform_label} = $self->first_matching_platform_label or
        return [412, "Platform not supported"];
    }

    # supply default for 'version' argument
    if (!defined $args{version}) {
        my $verres = $self->latest_version(maybe platform_label => $args{platform_label});
        return [500, "Can't get latest version: $verres->[0] - $verres->[1]"]
            unless $verres->[0] == 200;
        $args{version} = $verres->[2];
        $args{alternate_version} = $verres->[3]{'func.alternate_version'}
            if defined $verres->[3]{'func.alternate_version'};
    }

    $orig->($self, %args);
};

requires 'available_versions';

around available_versions => sub {
    my $orig = shift;
    my ($self, %args) = @_;

    # supply default for 'platform_label' argument
    if (!defined $args{platform_label}) {
        $args{platform_label} = $self->first_matching_platform_label or
        return [412, "Platform not supported"];
    }

    $orig->($self, %args);
};

requires 'cmp_version'; # usually from versioning scheme role

requires 'homepage_url';

requires 'is_dedicated_profile';

requires 'is_valid_version'; # usually from versioning scheme role

requires 'latest_version';

around latest_version => sub {
    my $orig = shift;
    my ($self, %args) = @_;

    # supply default for 'platform_label' argument
    if (!defined $args{platform_label}) {
        $args{platform_label} = $self->first_matching_platform_label or
        return [412, "Platform not supported"];
    }

    $orig->($self, %args);
};

requires 'platform_labels_to_specs';

requires 'download_url';

around download_url => sub {
    my $orig = shift;
    my ($self, %args) = @_;

    # supply default for 'platform_label' argument
    if (!defined $args{platform_label}) {
        $args{platform_label} = $self->first_matching_platform_label or
        return [412, "Platform not supported"];
    }

    # supply default for 'version' argument
    if (!defined $args{version}) {
        my $verres = $self->latest_version(maybe platform_label => $args{platform_label});
        return [500, "Can't get latest version: $verres->[0] - $verres->[1]"]
            unless $verres->[0] == 200;
        $args{version} = $verres->[2];
        $args{alternate_version} = $verres->[3]{'func.alternate_version'}
            if defined $verres->[3]{'func.alternate_version'};
    }

    $orig->($self, %args);
};

requires 'release_note';

around release_note => sub {
    my $orig = shift;
    my ($self, %args) = @_;

    # supply default for 'platform_label' argument
    if (!defined $args{platform_label}) {
        $args{platform_label} = $self->first_matching_platform_label or
        return [412, "Platform not supported"];
    }

    # supply default for 'version' argument
    if (!defined $args{version}) {
        my $verres = $self->latest_version(maybe platform_label => $args{platform_label});
        return [500, "Can't get latest version: $verres->[0] - $verres->[1]"]
            unless $verres->[0] == 200;
        $args{version} = $verres->[2];
        $args{alternate_version} = $verres->[3]{'func.alternate_version'}
            if defined $verres->[3]{'func.alternate_version'};
    }

    $orig->($self, %args);
};

1;
# ABSTRACT: Role for software

__END__