File Coverage

examples/sample-app/lib/UseCase/Host.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	5	0.0
total	37	43	86.0

package UseCase::Host;

use strict;
use warnings;

use List::Util qw(max);

# Storage
my %HOSTS = (
    1 => {
        name => 'deathstart.com',
        user_id => 1,
        state => 'active',
    },
    2 => {
        name => 'jedi.com',
        user_id => 2,
        state => 'active',
    },
    3 => {
        name => 'naboo.com',
        user_id => 2,
        state => 'inactive',
    },
);

sub list {
    my %params = @_;
    map { { id => $_, %{ $HOSTS{$_} } } } sort { $a <=> $b } keys %HOSTS;
}

sub create {
    my %params = @_;

    my $id = max(keys %HOSTS) + 1;
    $HOSTS{$id} = \%params;

    $id;
}

sub show {
    my $id = shift;
    $HOSTS{$id};
}

sub edit {
    my ($id, %params) = @_;

    foreach my $p (keys %params) {
        next unless $params{$p};
        $HOSTS{$id}{$p} = $params{$p};
    }

    $HOSTS{$id};
}

sub remove {
    my $id = shift;
    delete $HOSTS{$id};
    1;
}

1;