API-Instagram

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  ExtUtils::MakeMaker: 0
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.020, CPAN::Meta::Converter version 2.142060'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: API-Instagram
requires:
  Carp: 0
  Data::Dumper: 0
  Digest::MD5: 0
  Furl: 0
  JSON: 0
  Moo: 0
  Time::Moment: 0
  URI: 0
  experimental: 0
  perl: 5.010
  strict: 0
  warnings: 0

Makefile.PL  view on Meta::CPAN

  "AUTHOR" => "Gabriel Vieira <gabriel.vieira\@gmail.com>",
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "API-Instagram",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "API::Instagram",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Data::Dumper" => 0,
    "Digest::MD5" => 0,
    "Furl" => 0,
    "JSON" => 0,
    "Moo" => 0,
    "Time::Moment" => 0,
    "URI" => 0,
    "experimental" => 0,
    "strict" => 0,
    "warnings" => 0
  },

Makefile.PL  view on Meta::CPAN

  },
  "VERSION" => "0.013",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Carp" => 0,
  "Data::Dumper" => 0,
  "Digest::MD5" => 0,
  "File::Spec" => 0,
  "Furl" => 0,
  "Furl::Response" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "Inline::Files" => 0,
  "JSON" => 0,
  "Moo" => 0,
  "Test::MockObject::Extends" => 0,

lib/API/Instagram.pm  view on Meta::CPAN

	# For debugging purposes
	print "Requesting: $url$/" if $self->_debug;

	# Treats response content
	my $res = decode_json $self->_ua->$method( $url, [], $params )->decoded_content;

	# Verifies meta node
	my $meta = $res->{meta};
	carp "$meta->{error_type}: $meta->{error_message}" if $meta->{code} ne '200';

use Data::Dumper;
# die Dumper $res;
	$res;
}

sub _request_data { shift->_request(@_)->{data} || {} }

sub _del  { shift->_request_data( 'delete', @_ ) }
sub _get  { shift->_request_data( 'get',    @_ ) }
sub _post { shift->_request_data( 'post',   @_ ) }