File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition	0	4	0.0
subroutine	4	4	100.0
pod	1	1	100.0
total	21	26	80.7

package WWW::VastAI::API::Invoices;
our $VERSION = '0.001';
# ABSTRACT: Invoice listing for Vast.ai v1 billing endpoints

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

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

sub list {
    my ($self, %query) = @_;
    my $result = $self->client->request_op('listInvoices', query => \%query);
    my $invoices = ref $result eq 'HASH' ? ($result->{invoices} || $result->{results} || []) : ($result || []);
    return [
        map {
            WWW::VastAI::Invoice->new(
                client => $self->client,
                data   => $_,
            )
        } @{$invoices}
    ];
}

1;

__END__