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"
. <<'POSTAMBLE';
TEST_D = $(ABSPERLRUN) -MExtUtils::Command -e test_d --
livetest :: $(LIVE_TEST_FILES)
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/Anonymous/Object.pm view on Meta::CPAN
package Anonymous::Object;
use strict;
use warnings;
use Data::Dumper;
our $VERSION = 1.01;
our $UNIQUE;
BEGIN {
$Data::Dumper::Deparse = 1;
$UNIQUE = 0;
}
sub new {
my ( $cls, %args ) = ( shift(), scalar @_ == 1 ? %{ $_[0] } : @_ );
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/Discord.pm view on Meta::CPAN
class AnyEvent::Discord 0.7 {
use Algorithm::Backoff::Exponential;
use AnyEvent::Discord::Payload;
use AnyEvent::WebSocket::Client;
use Data::Dumper;
use JSON qw(decode_json encode_json);
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
lib/AnyEvent/Discord.pm view on Meta::CPAN
$self->_socket($socket);
# If we send malformed content, bail out
$socket->on('parse_error', sub {
my ($c, $error) = @_;
$self->_debug(Data::Dumper::Dumper($error));
die $error;
});
# Handle reconnection
$socket->on('finish', sub {
view release on metacpan or search on metacpan
use Module::Build 0.3601;
my %module_build_args = (
"build_requires" => {
"Data::Dumper" => 0,
"File::Find" => 0,
"File::Temp" => 0,
"Module::Build" => "0.3601",
"Test::More" => 0,
"strict" => 0,
view release on metacpan or search on metacpan
xt/perlcritic.rc view on Meta::CPAN
[-Variables::ProhibitPunctuationVars]
# We want to be able to use Carp::Verbose in our tests scripts, so
# we add Carp to the whitelist
[Variables::ProhibitPackageVars]
#packages = Data::Dumper File::Find FindBin Log::Log4perl Carp
#[-ValuesAndExpressions::ProhibitEmptyQuotes]
# I really don't think q{/} is more readable than '/'...
#[-ValuesAndExpressions::ProhibitNoisyQuotes]
view release on metacpan or search on metacpan
ok $obj, "Constructor";
my $phase = 0;
$obj->do(require => 'Data::Dumper', cb => sub {
$phase++;
diag explain \@_ unless ok $_[0] eq 'ok', 'require Data::Dumper';
$obj->do(
module => 'Data::Dumper',
args => [ [ 1, 2, 3 ]],
cb => sub {
my ($s, $o) = @_;
diag explain \@_ unless ok $s eq 'ok', 'Data::Dumper created';
$phase++;
$o->Indent(0, sub { ok $_[0] eq 'ok', 'dumper->Indent(0)' });
$o->Terse(1, sub { ok $_[0] eq 'ok', 'dumper->Terse(1)' });
$o->Useqq(1, sub { ok $_[0] eq 'ok', 'dumper->Useqq(1)' });
my $cv = condvar AnyEvent;
my $obj = new AnyEvent::ForkObject;
ok $obj, "Constructor";
$obj->do(require => 'Data::Dumper', cb => sub {
diag explain \@_ unless ok $_[0] eq 'ok', 'require Data::Dumper';
$obj->do(
module => 'Data::Dumper',
args => [ [ 1, 2, 3 ]],
cb => sub {
my ($s, $o) = @_;
ok $s eq 'ok', 'Data::Dumper created';
undef $obj;
$o->Dump(0, sub {
my ($st, $ob) = @_;
ok $obj, "Constructor";
kill KILL => $obj->{pid};
waitpid $obj->{pid}, 0;
$obj->do(require => 'Data::Dumper', cb => sub {
diag explain \@_ unless ok $_[0] eq 'fatal', 'Child was killed';
my $t;
$t = AE::timer 0.3, 0 => sub {
undef $t;
$cv->send;
}
});
my $dont_call_if_destroyed = 1;
$obj2->do(require => 'Data::Dumper', cb => sub {
diag explain \@_;
$dont_call_if_destroyed = 0;
});
kill KILL => $obj2->{pid};
undef $obj2;
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
sub event {
my ($self, $event, @args) = @_;
# if ($self->{verbose}) {
# use Data::Dumper;
# print Data::Dumper
# ->new ([[$event, @args]])
# ->Pair ("=>")
# ->Useqq (1)
# ->Indent (0)
# ->Terse (1)
view release on metacpan or search on metacpan
lib/AnyEvent/Gearman/WorkerPool.pm view on Meta::CPAN
package AnyEvent::Gearman::WorkerPool;
# ABSTRACT: Managing Worker's lifecycle with Slots
our $VERSION = '1.0'; # VERSION
use Log::Log4perl qw(:easy);
use Data::Dumper;
use Moose;
use Storable qw(freeze thaw);
use AnyEvent;
use AnyEvent::Gearman::Worker;
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.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];