API-Handle
view release on metacpan or search on metacpan
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the
appropriate parts of the General Public License. Of course, the
commands you use may be called something other than `show w' and `show
c'; they could even be mouse-clicks or menu items--whatever suits your
program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here a sample; alter the names:
"namespace::autoclean" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://github.com/quran/api-handle/issues"
},
"repository" : {
"type" : "git",
"url" : "git://github.com/quran/api-handle.git",
"web" : "https://github.com/quran/api-handle"
}
},
"version" : "0.02"
}
config/google/dfp/auth/private/token.yml view on Meta::CPAN
---
access_token: lasfjqwrqwr
expires_at: 1363159572
expires_in: 3600
refresh_token: 123123123123123
token_type: Bearer
lib/API/Handle.pm view on Meta::CPAN
}
}
);
}
sub req {
my ( $self, %args ) = @_;
my $req = new HTTP::Request;
$args{content} ||= $args{data} ||= $args{body};
$args{method} ||= $args{type};
$args{uri} ||= $self->_join_uri( $args{path} );
# Preserve hash order. Maybe needed for SOAP.
if ( defined $args{content} and (
( ref $args{content} eq 'ARRAY' ) or # Deprecated - backwards compatibility
( ref $args{content} eq 'REF' and ref ${ $args{content} } eq 'ARRAY' ) # New style ? => \[]
)
) {
$self->_tied( ref => \%args, key => 'content', tied => 1 );
}
lib/API/Handle.pm view on Meta::CPAN
$self->_database->switch_to( @args ) if @args;
return $self->_database;
}
# TODO: change all references to ->_encode to use ->encode and rename sub-routines
# TODO: same for _decode
sub _encode {
my ( $self, %args ) = @_;
my ( $data );
for ( $args{type} ) {
when ( 'json' ) {
$data = $self->_json->encode( $args{data} );
}
when ( 'xml' ) {
$data = $self->_xml->write( $args{data} );
}
when ( 'form' ) {
require URI;
my $uri = URI->new('http:');
$uri->query_form( ref $args{data} eq "HASH" ? %{ $args{data} } : @{ $args{data} } );
lib/API/Handle.pm view on Meta::CPAN
}
}
return $data;
}
sub _decode {
my ( $self, %args ) = @_;
my ( $data );
for ( $args{type} ) {
when ( 'json' ) {
$data = $self->_json->decode( $args{data} );
}
when ( 'xml' ) {
$data = $self->_xml->parse( $args{data} );
}
}
return $data;
}
lib/API/Handle/Google/DFP.pm view on Meta::CPAN
$prev = $self->$next( @args );
# Put code that depends on API::Handle::BUILD after this $prev line.
my $conf = $self->config;
my $time = time;
# Uncomment this to view loaded configuration.
# $self->dumper( 'config', $conf );
if ( $conf->{auth}{token}{access_token} and $conf->{auth}{token}{expires_at} and $conf->{auth}{token}{expires_at} > $time ) {
$self->ua->default_header( 'Authorization' => "$conf->{auth}{token}{token_type} $conf->{auth}{token}{access_token}" );
}
elsif ( $conf->{auth}{token}{refresh_token} ) {
my $req = new HTTP::Request;
$req->headers->header( 'Content-Type' => 'application/x-www-form-urlencoded' );
$req->method( 'POST' );
$req->uri( $conf->{auth}{uri}{token} );
my $data = $self->_encode( type => 'form', data => {
grant_type => 'refresh_token'
, client_id => $conf->{auth}{client}{id}
, client_secret => $conf->{auth}{client}{secret}
, refresh_token => $conf->{auth}{token}{refresh_token}
} );
$req->content( $data );
my $res = $self->ua->request( $req );
if ( $res->code == 200 ) {
my $data = $self->_decode( type => 'json', data => $res->content );
$data->{expires_at} = time + $data->{expires_in};
$self->merge_config( $conf->{auth}->{token}, $data );
$self->write_config( 'config/google/dfp/auth/private/token.yml', $conf->{auth}->{token} );
}
}
if ( $conf->{auth}{token}{access_token} and $conf->{auth}{token}{expires_at} and $conf->{auth}{token}{expires_at} > $time ) {
$self->ua->default_header( 'Authorization' => "$conf->{auth}{token}{token_type} $conf->{auth}{token}{access_token}" );
}
else {
carp 'no access token';
}
# Setup match-spec vars for request_prepare.
my ( $scheme, $host, $path ) = $self->uri =~ /^(https?):\/\/([^\/]+)(\/.+)$/;
# Add request wrapper.
$self->ua->add_handler(
lib/API/Handle/Google/DFP.pm view on Meta::CPAN
$data = $self->_xml->parse( $data );
$data = delete $data->{ 'soap:Envelope' }{ 'soap:Body' };
$self->_decamelize( $data );
$res->content( $data );
}
}
, m_scheme => $scheme
, m_host => $host
, m_path_match => qr/^\Q$path\E/
, m_code => 200
, m_media_type => 'text/xml'
);
return $prev;
};
__PACKAGE__->meta->make_immutable;
1;
__END__
lib/API/Handle/OpenX.pm view on Meta::CPAN
# Setup match-spec vars for request_prepare.
my ( $scheme, $host, $path ) = $self->uri =~ /^(https?):\/\/([^\/]+)(\/.+)$/;
# Add request wrapper.
$self->ua->add_handler(
request_prepare => sub {
my ( $req, $ua, $h ) = @_;
# Create SOAP envelope.
if ( my $data = $req->content ) {
my $json = $self->_encode( type => 'json', data => $data );
$req->content( $json );
$req->headers->header( 'Content-Type' => 'application/json; charset=utf-8' );
# Uncomment this to view generated JSON content.
# $self->debug( $json );
}
}
, m_scheme => $scheme
, m_host => $host
, m_path_match => qr/^\Q$path\E/
);
# Add response wrapper.
$self->ua->add_handler(
response_done => sub {
my ( $res, $ua, $h ) = @_;
if ( my $data = $res->content ) {
$data = $self->_decode( type => 'json', data => $data );
$res->content( $data );
}
}
, m_scheme => $scheme
, m_host => $host
, m_path_match => qr/^\Q$path\E/
, m_code => 200
);
return $prev;
( run in 0.840 second using v1.01-cache-2.11-cpan-df04353d9ac )