File Coverage

blib/lib/WWW/Giraffi/API/Media.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch			n/a
condition			n/a
subroutine	3	11	27.2
pod	8	8	100.0
total	20	44	45.4

package WWW::Giraffi::API::Media;

use strict;
use warnings;

use parent qw(WWW::Giraffi::API::Request);

our $VERSION = '0.2_04';

sub all {

    my ( $self, $other_options ) = @_;
    return $self->search(undef, $other_options);
}

sub search {

    my ( $self, $conditions, $other_options ) = @_;
    return $self->get( "media.json", $conditions, $other_options );
}

sub find {

    my ( $self, $id, $other_options ) = @_;
    return $self->get( sprintf( "media/%s.json", $id ), undef, $other_options );
}


# this method has not been tested
sub find_oauth {

	my($self, $id, $other_options) = @_;
	return $self->get( sprintf( "media/%s/oauth.json", $id ), undef, $other_options );
}

# this method has not been tested
sub find_oauth_callback {

	my($self, $id, $oauth_verifier, $other_options) = @_;
	return $self->get( sprintf( "media/%s/oauth_callback.json", $id ), { oauth_verifier => $oauth_verifier}, $other_options );
}

sub create {

    my ( $self, $conditions, $other_options ) = @_;
    return $self->post( "media.json", undef, { medium => $conditions }, $other_options );
}

sub update {

    my ( $self, $id, $conditions, $other_options ) = @_;
    return $self->put( sprintf("media/%s.json", $id), undef, { medium => $conditions }, $other_options );
}

sub destroy {

    my ( $self, $id, $other_options ) = @_;
    return $self->delete( sprintf("media/%s.json", $id), undef, undef, $other_options );
}

1;

__END__