File Coverage

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

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	6	0.0
total	40	47	85.1

package UseCase::User;

use strict;
use warnings;

use List::Util qw(max);

# Storage
my %USERS = (
    1 => {
        name => 'Darth Wader',
        password => 'empire',
        email => '[e-mail]',
    },
    2 => {
        name => 'Luke Skywalker',
        password => 'qwerty',
        email => '[e-mail]',
    },
);

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

sub create {
    my %params = @_;

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

    $id;
}

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

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

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

    $USERS{$id};
}

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

sub bump {
    my $id = shift;
    ++$USERS{$id}{bumped};
}

1;