File Coverage

blib/lib/WWW/VastAI/API/User.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	1	1	100.0
total	20	23	86.9

package WWW::VastAI::API::User;
our $VERSION = '0.001';
# ABSTRACT: Current-user access for Vast.ai

use Moo;
use WWW::VastAI::User;
use namespace::clean;

has client => (
    is       => 'ro',
    required => 1,
    weak_ref => 1,
);

sub current {
    my ($self) = @_;
    my $result = $self->client->request_op('getCurrentUser');
    my $user = ref $result eq 'HASH' ? ($result->{user} || $result) : $result;
    return WWW::VastAI::User->new(
        client => $self->client,
        data   => $user,
    );
}

1;

__END__