view release on metacpan or  search on metacpan

lib/BZ/Client/API.pm  view on Meta::CPAN

    my $self = { @_ };
    bless($self, ref($class) || $class);
    return $self
}

# Move stuff here so we dont do it over and over

sub _create {
    my(undef, $client, $methodName, $params, $key) = @_;
    $key ||= 'id';
    my $sub = ( caller(1) )[3];
    $client->log('debug', $sub . ': Running');
    my $result = __PACKAGE__->api_call($client, $methodName, $params);
    my $id = $result->{$key};
     __PACKAGE__->error($client, "Invalid reply by server, expected $methodName $key.")
        unless $id;
    $client->log('debug', "$sub: Returned $id");
    return $id
}

sub _returns_array {
    my(undef, $client, $methodName, $params, $key) = @_;
    my $sub = ( caller(1) )[3];
    $client->log('debug',$sub . ': Running');
    my $result = __PACKAGE__->api_call($client, $methodName, $params);
    my $foo = $result->{$key};
    __PACKAGE__->error($client, "Invalid reply by server, expected array of $methodName details")
        unless ($foo and 'ARRAY' eq ref $foo);
    $client->log('debug', "$sub: Recieved results");
    return wantarray ? @$foo : $foo
}