The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package WWW::Stickam::API::Media::Information;

use strict;
use warnings;
use base qw/WWW::Stickam::API::Base/;

sub uri {
    my $s     = shift;
    my $args  = shift;
    my $media_id = $args->{media_id};
    die 'You must set media_id' unless $media_id;
    delete $args->{media_id};
    my $uri = "http://api.stickam.com/api/media/$media_id/";
}

1;

=head1 NAME

WWW::Stickam::API::Media::Information - Media/Information API

=head1 SYNOPSYS

 my $api = WWW::Stickam::API->new();
 if( $api->call('Media/Information' , { media_id => 170159586 } ) ) {
    print Dumper $api->get();
    print $api->get_XML();
    print $api->get_JSON();
 }
 else {
    print $api->error ;
 }

=head1 METHOD

=head2 uri

=head1 SEE ALSO

http://labs.stickam.jp/api/#media-information

=head1 AUTHOR

Tomohiro Teranishi<tomohiro.teranishi@gmail.com>

=cut