view release on metacpan or search on metacpan
examples/parallel.pl view on Meta::CPAN
use warnings;
use AnyEvent;
use Amazon::SQS::Simple;
use Amazon::SQS::Simple::AnyEvent;
use Data::Dumper;
#--------------------------------------------------------------------
# This example fetches 10 message batches in parallel and dumps
# the messages in each batch to STDOUT when the batch arrives.
#--------------------------------------------------------------------
view release on metacpan or search on metacpan
lib/Amazon/SecretsManager.pm view on Meta::CPAN
return Data::UUID->new->create_str;
}
sub main {
require Data::Dumper;
require JSON::PP;
JSON::PP->import(qw{ encode_json });
Data::Dumper->import('Dumper');
$Data::Dumper::Pair = ':';
$Data::Dumper::Terse = 1;
my $secrets_mgr = Amazon::SecretsManager->new;
my $secret_list = $secrets_mgr->ListSecrets->{SecretList};
view release on metacpan or search on metacpan
lib/Ambrosia/Config.pm view on Meta::CPAN
package Ambrosia::Config;
use strict;
use warnings;
use Data::Dumper;
use base qw/Exporter/;
use Ambrosia::error::Exceptions;
use Ambrosia::core::ClassFactory;
view release on metacpan or search on metacpan
Amethyst/Brain.pm view on Meta::CPAN
package Amethyst::Brain;
use strict;
use Data::Dumper;
use POE;
sub new {
my $class = shift;
my $self = ($#_ == 0) ? { %{ (shift) } } : { @_ };
view release on metacpan or search on metacpan
t/400_lite/04_template_options.t view on Meta::CPAN
my $app = do {
use Amon2::Lite;
__PACKAGE__->template_options(
syntax => 'Kolon',
module => ['Data::Dumper'],
function => {
pp => sub { 'pp' . shift },
},
);
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
ExtUtils-Config-0.008
pathname: L/LE/LEONT/ExtUtils-Config-0.008.tar.gz
provides:
ExtUtils::Config 0.008
requirements:
Data::Dumper 0
ExtUtils::MakeMaker 6.30
strict 0
warnings 0
ExtUtils-Helpers-0.022
pathname: L/LE/LEONT/ExtUtils-Helpers-0.022.tar.gz
cpanfile.snapshot view on Meta::CPAN
inc::latest::private 0.4210
requirements:
CPAN::Meta 2.142060
CPAN::Meta::YAML 0.003
Cwd 0
Data::Dumper 0
ExtUtils::CBuilder 0.27
ExtUtils::Install 0
ExtUtils::Manifest 0
ExtUtils::Mkbootstrap 0
ExtUtils::ParseXS 2.21
view release on metacpan or search on metacpan
author/assets.pl view on Meta::CPAN
use utf8;
use 5.008001;
use lib 'lib';
use LWP::UserAgent;
use autodie;
use Data::Dumper;
use File::Basename;
use File::Temp qw/tmpnam tempdir/;
use Text::Xslate;
my $xslate = Text::Xslate->new(
syntax => 'TTerse',
module => ['Data::Dumper'],
type => 'text',
tag_start => '<%',
tag_end => '%>',
);
&main;exit;
sub main {
local $Data::Dumper::Terse = 1;
run_xsrf_token_js();
}
sub run_xsrf_token_js {
view release on metacpan or search on metacpan
lib/Amp/Client.pm view on Meta::CPAN
package Amp::Client;
use Moo;
use Amp::DbPoolClient;
use Amp::Config;
use Data::Dumper;
use feature 'say';
our $VERSION = '0.03';
has config => (is => 'lazy');
view release on metacpan or search on metacpan
lib/Anagram/Groups.pm view on Meta::CPAN
=head1 SYNOPSIS
use Anagram::Groups;
use Data::Dumper;
my $array_ref = ["reap", "pear", "listen", "silent"];
my $anagram_groups = anagram_group($array_ref);
print Dumper($anagram_groups);
...
view release on metacpan or search on metacpan
lib/Anansi/Actor.pm view on Meta::CPAN
PACKAGE => 'Anansi::Example',
);
$object->someSubroutine() if(defined($object));
use Anansi::Actor;
use Data::Dumper qw(Dumper);
my %modules = Anansi::Actor->modules();
if(defined($modules{DBI})) {
Anansi::Actor->new(
PACKAGE => 'DBI',
);
print Data::Dumper::Dumper(DBI->available_drivers());
}
use Anansi::Actor;
use Data::Dumper qw(Dumper);
if(1 == Anansi::Actor->modules(
PACKAGE => 'DBI',
)) {
Anansi::Actor->new(
PACKAGE => 'DBI',
);
print Data::Dumper::Dumper(DBI->available_drivers());
}
=head1 DESCRIPTION
This is a dynamic usage module definition that manages the loading of a required
view release on metacpan or search on metacpan
lib/Driver/Compiler/Check.pm view on Meta::CPAN
use strict;
use vars qw(@ISA @EXPORT_OK @STACK $DEBUG
%OPTYPETABLE %OPTYPES %OPCHOICES);
use Carp qw(:DEFAULT cluck);
use Data::Dumper;
use List::Util qw(first);
use Anarres::Mud::Driver::Compiler::Type qw(:all);
use Anarres::Mud::Driver::Compiler::Node qw(:all);
# This has turned into a rather long, complex and involved Perl file.
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile(%WriteMakefileArgs);
sub MY::postamble {
my (undef,%h) = @_;
# require Data::Dumper; print STDERR Data::Dumper->Dump([\%h], [qw(mm_args{postamble})]);
return
"LIVE_TEST_FILES=$h{LIVE_TEST_FILES}\n"
. "AUTHOR_TEST_FILES=$h{AUTHOR_TEST_FILES}\n"
. "OPTIONAL_TEST_FILES=$h{OPTIONAL_TEST_FILES}\n"
. <<'POSTAMBLE';
view release on metacpan or search on metacpan
lib/Aniki.pm view on Meta::CPAN
# --------------------------------------------------
# error handling
sub handle_error {
my ($self, $sql, $bind, $e) = @_;
require Data::Dumper;
local $Data::Dumper::Maxdepth = 2;
$sql =~ s/\n/\n /gm;
croak sprintf $self->exception_template, $e, $sql, Data::Dumper::Dumper($bind);
}
sub exception_template {
return <<'__TRACE__';
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
view release on metacpan or search on metacpan
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Data::Dumper" : "0",
"File::Path" : "0",
"File::Spec" : "0",
"Getopt::Args" : "0",
"Test::Exception" : "0",
"Test::More" : "0",
view release on metacpan or search on metacpan
Annelidous/Connector/Xen.pm view on Meta::CPAN
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
package Annelidous::Connector::Xen;
use base 'Annelidous::Connector';
use Data::Dumper;
#use Annelidous::Transport::SSH;
sub new {
my $invocant = shift;
view release on metacpan or search on metacpan
lib/Test/AnsibleModule.pm view on Meta::CPAN
use Mojo::Base -base;
use Test::More;
use Mojo::JSON qw/decode_json encode_json/;
use Mojo::Asset::File;
use Carp qw/croak/;
use Data::Dumper qw/Dumper/;
$Data::Dumper::Sortkeys++;
has 'last_response';
has 'success';
sub fail_ok {
view release on metacpan or search on metacpan
#!/usr/bin/perl
use Ante::Deluvian::Dialog;
use Data::Dumper;
use IO::File;
my ($FALSE, $TRUE) = (0, 1);
my $isWin = $FALSE;
my $pltFrm = $^O;
view release on metacpan or search on metacpan
lib/Any/Renderer.pm view on Meta::CPAN
application can generate output in an extensible variety of formats.
Formats currently supported include:
- XML (via XML::Simple)
- XML+XSLT
- Data::Dumper
- Javascript, Javascript::Anon & JSON
- UrlEncoded
- The formats supported by Data::Serializer (e.g. Config::General and Config::Wrest)
- Any templating language supported by Any::Template
lib/Any/Renderer.pm view on Meta::CPAN
=item @Any::Renderer::LowPriProviders
A list of backend providers which have lower precedence (if there is more than one module which provides a given format).
The earlier things appear in this list, the lower the precedence.
Defaults to C<Data::Serializer> as this provides both XML::Simple and Data::Dumper (which have native Any::Renderer backends).
=back
=head1 WRITING A CUSTOM BACKEND
view release on metacpan or search on metacpan
lib/AnyData.pm view on Meta::CPAN
first_row_pos => $first_row_pos,
fh => $self->{storage}->get_file_handle,
file => $self->{storage}->get_file_name,
ad => $self,
};
#use Data::Dumper; print Dumper $table;
return $table;
}
sub fetch_row {
my $self = shift;
my $requested_cols = shift || [];
lib/AnyData.pm view on Meta::CPAN
#print "Can't find column names!" unless scalar @$col_names;
$self->{storage}->print_col_names( $self->{parser}, $col_names )
unless $self->{parser}->{col_names} && $self->parser_type ne 'XML';
# $self->set_col_nums;
$self->{parser}->{key} ||= $col_names->[0];
#use Data::Dumper; print Dumper $self; exit;
}
sub drop { shift->{storage}->drop(@_); }
sub truncate { shift->{storage}->truncate(@_) }
##################################################################
lib/AnyData.pm view on Meta::CPAN
my $self = shift;
#print "PUSHING... ";
die "ERROR: No Column Names!" unless scalar @{$self->col_names};
my $requested_cols = [];
my @row = @_;
use Data::Dumper;
#print "PUSHING ", Dumper \@row;
if (ref($row[0]) eq 'ARRAY') {
$requested_cols = shift @row;
}
my $rec = $self->{parser}->write_fields(@row) or return undef;
lib/AnyData.pm view on Meta::CPAN
# Patch from Wes Hardaker
###########################################################
# my($formatref,$file,$read_mode,$lockMode,$othflags)=@_;
my($formatref,$file,$read_mode,$lockMode,$othflags,$tname)=@_;
###########################################################
#use Data::Dumper; print Dumper \@_;
my($format,$flags);
$file ||= '';
my $url = is_url($file);
$flags = {};
$othflags ||= {};
lib/AnyData.pm view on Meta::CPAN
# Patch from Wes Hardaker
#####################################################
# $ad->open_table( $file, $read_mode );
## $ad->open_table( $file, $read_mode, $tname );
$ad->open_table( $file, $read_mode, $tname );
# use Data::Dumper; my $x = $ad; delete $x->{parser}->{twig}; delete $x->{parser}->{record_tag}; delete $x->{parser}->{current_element}; print Dumper $x;
#####################################################
return $ad;
}
sub open_table {
lib/AnyData.pm view on Meta::CPAN
if (ref $source_formatref eq 'HASH') {
while (my($k,$v)=each %$source_formatref) {
($source_format,$source_flags) = ($k,$v);
}
}
#use Data::Dumper;
return( $source_format, $source_flags);
}
sub dump {
my $var = shift;
my $name = ref($var);
#use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Useqq = 0;
print Data::Dumper->new([$var],[$name])->Dump();
}
###########################################################################
# START OF DOCUMENTATION
###########################################################################
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
*{"${package}::$field"} = $sub;
return $code if defined wantarray;
}
sub default_as_code {
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
my $code = Data::Dumper::Dumper(shift);
$code =~ s/^\$VAR1 = //;
$code =~ s/;$//;
return $code;
}
inc/Spiffy.pm view on Meta::CPAN
# Debugging support
#===============================================================================
sub spiffy_dump {
no warnings;
if ($dump eq 'dumper') {
require Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
return Data::Dumper::Dumper(@_);
}
require YAML;
$YAML::UseVersion = 0;
return YAML::Dump(@_) . "...\n";
}
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
*{"${package}::$field"} = $sub;
return $code if defined wantarray;
}
sub default_as_code {
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
my $code = Data::Dumper::Dumper(shift);
$code =~ s/^\$VAR1 = //;
$code =~ s/;$//;
return $code;
}
inc/Spiffy.pm view on Meta::CPAN
# Debugging support
#===============================================================================
sub spiffy_dump {
no warnings;
if ($dump eq 'dumper') {
require Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
return Data::Dumper::Dumper(@_);
}
require YAML;
$YAML::UseVersion = 0;
return YAML::Dump(@_) . "...\n";
}
view release on metacpan or search on metacpan
eg/ssh-add.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::Beanstalk;
use JSON;
use Data::Dumper;
use feature 'say';
my $bs = AnyEvent::Beanstalk->new
(server => 'localhost',
encoder => sub { encode_json(shift) });
view release on metacpan or search on metacpan
lib/AnyEvent/CacheDNS.pm view on Meta::CPAN
use strict;
use warnings;
use base 'AnyEvent::DNS';
use Data::Dumper;
our $VERSION = '0.08';
# Detect AnyEvent >= 6.0.1
my $IS_AE_6X = version->can("parse")
view release on metacpan or search on metacpan
lib/AnyEvent/CallbackStack.pm view on Meta::CPAN
our $VERSION = '0.12';
use utf8;
use feature 'say';
use common::sense;
use Data::Dumper::Simple;
use AnyEvent;
use constant DEBUG => $ENV{ANYEVENT_CALLBACKSTACK_DEBUG};
view release on metacpan or search on metacpan
lib/AnyEvent/ClickHouse.pm view on Meta::CPAN
use AnyEvent::HTTP;
use URI;
use URI::QueryParam;
use Scalar::Util qw/looks_like_number/;
use Data::Dumper;
our $headers;
$headers->{'User-agent'} = 'Mozilla/5.0 (compatible; U; Perl-AnyEvent-ClickHouse;)';
$headers->{'Te'} = undef;
$headers->{'Referer'} = undef;
view release on metacpan or search on metacpan
t/04-check.t view on Meta::CPAN
use strict;
use warnings;
use AnyEvent;
use AnyEvent::ConnPool;
use Data::Dumper;
use Test::More;
my $global_counter = 0;
my $cv = AnyEvent->condvar();
view release on metacpan or search on metacpan
lib/AnyEvent/Connection/Util.pm view on Meta::CPAN
}
return;
}
sub dumper (@) {
eval { require Data::Dumper;1 } or return @_;
no strict 'refs';
*{ caller().'::dumper' } = sub (@) {
my $s = Data::Dumper->new([@_])
#->Maxdepth(3)
->Terse(1)
->Indent(1)
->Purity(0)
->Useqq(1)
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
*{"${package}::$field"} = $sub;
return $code if defined wantarray;
}
sub default_as_code {
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
my $code = Data::Dumper::Dumper(shift);
$code =~ s/^\$VAR1 = //;
$code =~ s/;$//;
return $code;
}
inc/Spiffy.pm view on Meta::CPAN
# Debugging support
#===============================================================================
sub spiffy_dump {
no warnings;
if ($dump eq 'dumper') {
require Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
return Data::Dumper::Dumper(@_);
}
require YAML;
$YAML::UseVersion = 0;
return YAML::Dump(@_) . "...\n";
}
view release on metacpan or search on metacpan
lib/AnyEvent/DNS/EtcHosts.pm view on Meta::CPAN
use AnyEvent ();
use AnyEvent::Socket ();
use constant DEBUG => $ENV{PERL_ANYEVENT_DNS_ETCHOSTS_DEBUG};
use if DEBUG, 'Data::Dumper';
our $GUARD;
=head1 IMPORTS
view release on metacpan or search on metacpan
lib/AnyEvent/DNS.pm view on Meta::CPAN
=back
Examples:
# full example, you can paste this into perl:
use Data::Dumper;
use AnyEvent::DNS;
AnyEvent::DNS::resolver->resolve (
"google.com", "*", my $cv = AnyEvent->condvar);
warn Dumper [$cv->recv];