Yet Another CPAN Grep

WebService-VaultPress-Partner ( S/SY/SYMKAT/WebService-VaultPress-Partner-0.05.tar.gz, SYMKAT, 2011; MetaCPAN )

WebService-VaultPress-Partner/lib/WebService/VaultPress/Partner.pm ( view source; MetaCPAN )

::Request::History;
use WebService::VaultPress::Partner::Request::Usage;
use Moose;
use Carp;
use JSON;
use LWP;
use Moose::Util::TypeConstraints;

my $abs_int = subtype as 'Int', where { $_ >= 0 };

>_croak_on_http_error( $res );

    my $json = decode_json( $res->content );
    
    # The API tells us if the call failed.
    die $json->{reason} unless $json->{status};

    return WebService::Vau

new(
        api_call        => 'CreateGoldenTicket',
        ticket          => exists $json->{url}    ? $json->{url} : "",
    );
}

sub get_usage {
    my ( $self, %request ) = @_;
    
    my $req