view release on metacpan or search on metacpan
lib/AMF/Connection.pm view on Meta::CPAN
use AMF::Connection::InputStream;
use LWP::UserAgent;
use HTTP::Cookies;
#use Data::Dumper; #for debug
use Carp;
use strict;
our $VERSION = '0.32';
lib/AMF/Connection.pm view on Meta::CPAN
my $request_stream = new AMF::Connection::OutputStream($class->{'output_amf_options'});
# serialize request
$request->serialize($request_stream);
#use Data::Dumper;
#print STDERR Dumper( $request );
# set any extra HTTP header
map { $class->{'ua'}->default_header( $_ => $class->{'http_headers'}->{$_} ); } keys %{ $class->{'http_headers'} };
view release on metacpan or search on metacpan
lib/API/CLI.pm view on Meta::CPAN
my ($method, $path) = @{ $run->commands };
my $params = $run->parameters;
my $opt = $run->options;
if ($opt->{debug}) {
warn __PACKAGE__.':'.__LINE__.": apicall($method $path)\n";
warn __PACKAGE__.':'.__LINE__.$".Data::Dumper->Dump([\$params], ['params']);
warn __PACKAGE__.':'.__LINE__.$".Data::Dumper->Dump([\$opt], ['opt']);
}
$path =~ s{(?::(\w+)|\{(\w+)\})}{$params->{ $1 // $2 }}g;
if ($opt->{debug}) {
warn __PACKAGE__.':'.__LINE__.": apicall($method $path)\n";
}
view release on metacpan or search on metacpan
lib/API/CPanel.pm view on Meta::CPAN
use Exporter::Lite;
use LWP::UserAgent;
#use XML::LibXML;
use XML::Simple;
use Data::Dumper;
use MIME::Base64;
# Main packages
use API::CPanel::Ip;
use API::CPanel::User;
use API::CPanel::Misc;
view release on metacpan or search on metacpan
lib/API/DirectAdmin.pm view on Meta::CPAN
package API::DirectAdmin;
use Modern::Perl '2010';
use LWP::UserAgent;
use HTTP::Request;
use Data::Dumper;
use Carp;
use URI;
our $VERSION = 0.09;
our $DEBUG = '';
lib/API/DirectAdmin.pm view on Meta::CPAN
Modern::Perl
LWP::UserAgent
HTTP::Request
URI
Carp
Data::Dumper
=head1 COPYRIGHT AND LICENCE
Copyright (C) 2012-2013 by Andrey "Chips" Kuzmin <chipsoid@cpan.org>
view release on metacpan or search on metacpan
examples/edw/get_csv_file.pl view on Meta::CPAN
#
my $edw = new API::Eulerian::EDW();
my $rh_ret = $edw->get_csv_file( \%h_setup, $cmd );
use Data::Dumper;
print Dumper($rh_ret);
1;
__END__
view release on metacpan or search on metacpan
lib/API/Google.pm view on Meta::CPAN
package API::Google;
$API::Google::VERSION = '0.12';
use Data::Dumper;
# ABSTRACT: Perl library for easy access to Google services via their API
use strict;
use warnings;
use Mojo::UserAgent;
use Config::JSON;
use Data::Dumper;
sub new {
my ($class, $params) = @_;
my $h = {};
view release on metacpan or search on metacpan
lib/API/Handle/Google/DFP.pm view on Meta::CPAN
}
use Moose;
use namespace::autoclean;
use HTTP::Request;
use Carp;
use Data::Dumper;
use feature ':5.10';
with 'API::Handle';
has _config => (
is => 'rw'
view release on metacpan or search on metacpan
add_database.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use API::ISPManager;
#
# Script for add databases account to certain user account in ISPManager
#
view release on metacpan or search on metacpan
lib/API/Instagram.pm view on Meta::CPAN
# 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} || {} }
view release on metacpan or search on metacpan
lib/API/Octopart.pm view on Meta::CPAN
use JSON;
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
=head1 NAME
API::Octopart - Simple inteface for querying part status across vendors at octopart.com.
view release on metacpan or search on metacpan
t/02_response.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 2;
use Data::Dumper;
use API::ParallelsWPB::Response;
use HTTP::Response;
use API::ParallelsWPB;
subtest 'Response ok' => sub {
view release on metacpan or search on metacpan
lib/API/Plesk.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use Data::Dumper;
use HTTP::Request;
use LWP::UserAgent;
use XML::Fast;
use version;
view release on metacpan or search on metacpan
lib/API/PleskExpand.pm view on Meta::CPAN
use lib qw(../..);
use API::Plesk;
use base 'API::Plesk';
use Data::Dumper;
use Carp;
our $VERSION = '1.07';
=head1 NAME
view release on metacpan or search on metacpan
lib/API/PureStorage.pm view on Meta::CPAN
package API::PureStorage;
use Data::Dumper;
use REST::Client;
use JSON;
use Net::SSL;
use warnings;
view release on metacpan or search on metacpan
ReviewBoard.pm view on Meta::CPAN
use warnings;
use LWP;
use HTTP::Cookies;
use Carp qw(croak);
use Params::Validate qw[validate OBJECT SCALAR ARRAYREF];
use Data::Dumper;
use vars qw( @EXPORT @ISA );
=head1 NAME
API::ReviewBoard - ReviewBoard Class to work with exported ReviewBoard 2.0 APIs.
=head1 SYNOPSIS
use strict;
use warnings;
use Data::Dumper;
#Imports ReviewBoard Class.
use API::ReviewBoard;
view release on metacpan or search on metacpan
lib/API/Vultr.pm view on Meta::CPAN
if you need more feel free to add it!
=head1 Example
use API::Vultr;
use Data::Dumper qw(Dumper);
my $vultr_api = API::Vultr->new(api_key => $ENV{VULTR_API_KEY});
my $create_response = $vultr_api->create_instance(
region => 'ewr',
view release on metacpan or search on metacpan
lib/APP/REST/ParallelMyUA.pm view on Meta::CPAN
package APP::REST::ParallelMyUA;
use 5.006;
use strict;
use warnings FATAL => 'all';
use Data::Dumper;
use Time::HiRes qw( time sleep );
use Exporter();
use LWP::Parallel::UserAgent qw(:CALLBACK);
use base qw(LWP::Parallel::UserAgent Exporter);
our @EXPORT = @LWP::Parallel::UserAgent::EXPORT_OK;
$| = 1; #make the pipe hot
$Data::Dumper::Indent = 1;
=head1 NAME
APP::REST::ParallelMyUA -
provide a subclassed UserAgent to override on_connect, on_failure and
view release on metacpan or search on metacpan
lib/APR/HTTP/Headers/Compat/MagicHash.pm view on Meta::CPAN
return scalar $self->_keys;
}
sub DESTROY {
my ( $self ) = @_;
# use Data::Dumper;
# print STDERR "# ", Dumper($self);
# print STDERR "# <<<\n";
# $self->table->do(
# sub {
# my ( $k, $v ) = @_;
view release on metacpan or search on metacpan
lib/ARGV/Struct.pm view on Meta::CPAN
Please bash the guts out of it. Break it and shake it till it falls apart.
Contribute bugs and patches. All input is welcome.
To help with the bashing, when you install this dist, you get a command line util
called argvstruct. It will basically print a Data::Dumper of the structure generated
by it's arguments
user@host:~$ argvstruct { Hello Guys How [ Are You { Doing Today } ] }
$VAR1 = {
'Hello' => 'Guys',
view release on metacpan or search on metacpan
examples/get_data_by_label.pl view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use ARS::Simple;
use Data::Dumper;
# Dump detail of all User form records
my $ars = ARS::Simple->new({
server => 'dev_machine',
view release on metacpan or search on metacpan
lib/ARSObject.pm view on Meta::CPAN
}
sub dsdump { # Data structure dump to string
my ($s, $d) =@_; # (data structure) -> dump string
eval('use Data::Dumper');
my $o =Data::Dumper->new([$d]);
$o->Indent(1);
$o->Deepcopy(1);
$o->Dump();
}
view release on metacpan or search on metacpan
example/WhoUsesIt.pl view on Meta::CPAN
foreach $menu (@menus) {
print "Searching: $menu\n" if $debug;
($menuDef = ars_GetCharMenu($ctrl, $menu)) ||
die "ars_GetCharMenu: $ars_errstr";
#next unless ($menu eq "PT-Assignees");
#use Data::Dumper; print Dumper($menuDef); exit 0;
# 3 is legacy.
if( ($menuDef->{menuType} == 3) || ($menuDef->{menuType} =~ /format_quotes/i) ) {
print "\tIs type File (points to ".qq{"$menuDef->{menuFile}{filename}"}.")\n" if $debug;
if ($menuDef->{menuFile}{filename} =~ /$opt_M/) {
$users{$menu} = $1;
view release on metacpan or search on metacpan
applications/display-test.pl view on Meta::CPAN
}
$dbh->disconnect or $rv = errorTrapDBI($checklist, "Sorry, the database was unable to add your entry.") if ($dbh and $rv);
if ($debug) {
use Data::Dumper;
print Dumper ( $hash_timeperiodID_days ), "\n\n";
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
applications/display-test.pl view on Meta::CPAN
require "$APPLICATIONPATH/custom/sde.pm";
getTimeperiodRelationshipsSDE( $serverName, $checklist, $hash_catalogID_uKey_timeperiodID, $debug );
}
if ($debug) {
use Data::Dumper;
print Dumper ( $hash_catalogID_uKey_timeperiodID ), "\n\n";
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
view release on metacpan or search on metacpan
lib/ASP4/ErrorHandler.pm view on Meta::CPAN
use strict;
use warnings 'all';
use base 'ASP4::HTTPHandler';
use vars __PACKAGE__->VARS;
use MIME::Base64;
use Data::Dumper;
sub run
{
my ($s, $context) = @_;
view release on metacpan or search on metacpan
examples/bench.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use Carp qw(carp croak);
use Data::Dumper;
use Benchmark;
# this bench is more accuret in showing the
# time it takes for the modules to load.
view release on metacpan or search on metacpan
t/010-basic/010-basic.t view on Meta::CPAN
);
warn "New Dist ID: " . $dist->Id;
my $ident = $dist->create_origin_access_identity( Comment => 'testing only' );
use Data::Dumper;
warn Dumper( $ident );
while( 1 )
{
warn "Checking status of ", $dist->Id, "\n";
view release on metacpan or search on metacpan
examples/psgi/app.psgi view on Meta::CPAN
use strict;
use warnings;
use utf8;
use Plack::Request;
use Plack::Builder;
use Data::Dumper;
return builder {
mount '/foo' => sub {
my $env = shift;
my $req = Plack::Request->new($env);
view release on metacpan or search on metacpan
t/010_basic.t view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use warnings 'all';
use Test::More;
use Data::Dumper;
use FindBin qw/ $Bin /;
use lib "$Bin/../lib";
use Carp 'confess';
$SIG{__DIE__} = \&confess;
view release on metacpan or search on metacpan
abstract: 'Publish errors to an SNS topic'
author:
- 'Tristan Havelick <tristan@havelick.com>'
build_requires:
Amazon::SNS::Topic: 0
Data::Dumper: 0
FindBin: 0
Test::Exception: 0
Test::More: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
pathname: L/LE/LEONT/ExtUtils-Config-0.007.tar.gz
provides:
ExtUtils::Config 0.007
requirements:
Config 0
Data::Dumper 0
ExtUtils::MakeMaker 6.30
File::Find 0
File::Temp 0
Test::More 0.88
strict 0