view release on metacpan or  search on metacpan

t/02_api.t  view on Meta::CPAN

    image_id => $image_id,
    face_id   => $face_id,
});
SKIP: {
skip 'Does riya.photos.faces.RemoveFace work fine?';
is $api->status, 1;
diag $response;
};
is $response, '';

$response = $api->call_method('riya.photos.overlays.AddOverlay', {
    image_id => $image_id,
    x => '0',
    y => '0',
    w => '50',
    h => '50',
});
is $api->status, 1;

$response = $api->call_method('riya.photos.overlays.GetOverlayList', {
    image_id => $image_id,
});
is $api->status, 1;

$doc = $xml->parse_string($response);
my @nodes = $doc->findnodes("//*[local-name()='overlay']");

$response = $api->call_method('riya.photos.overlays.EditOverlay', {
    image_id => $image_id,
    overlay_id => $nodes[0]->findvalue("\@id"),
    tag        => 'DogTag',
});
SKIP: {
skip 'Does riya.photos.overlays.EditOverlay work fine?';
is $api->status, 1;
diag $response;
};
is $response, '';

$response = $api->call_method('riya.photos.overlays.RemoveOverlay', {
    image_id => $image_id,
    overlay_id => $nodes[0]->findvalue("\@id"),
});
SKIP: {
skip 'Does riya.photos.overlays.RemoveOverlay work fine?';
is $api->status, 1;
diag $response;
};
is $response, '';

$response = $api->call_method('riya.photos.tags.AddTag', {
    image_id => $image_id,
    tag      => 'Fun',
});
is $api->status, 1;