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;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $xslate = Text::Xslate->new(
syntax => 'TTerse',
module => ['Data::Dumper'],
type => 'text',
tag_start => '<%',
tag_end => '%>',
);
my $ua = LWP::UserAgent->new();
author/assets.pl view on Meta::CPAN
);
&main;exit;
sub main {
local $Data::Dumper::Terse = 1;
if (@ARGV) {
my $code = __PACKAGE__->can($ARGV[0])
or die "Unknown method: $ARGV[0]";
$code->();
author/assets.pl view on Meta::CPAN
if ($filename =~ m{/dist/(.*)\z}) {
$files->{"bootstrap/$1"} = $contents;
}
}
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = 1;
my $content = $xslate->render_string(<<'...', {script => $0, content => Dumper($files)});
# This file is generated by <% script %>. Do not edit manually.
package Amon2::Setup::Asset::Bootstrap;
use strict;
use warnings;
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/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
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];