view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2000_12_01.pm view on Meta::CPAN
our $DATE = '2018-09-22'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {
description => "This list is generated by extracting module names mentioned in [http://perladvent.org/2000/1/] (retrieved on 2016-11-07). Visit the URL for the full contents.",
entries => [{ module => "Data::Dumper" }],
summary => "Modules mentioned in Perl Advent Calendar 2000 (day 1)",
};
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2000 (day 1)
lib/Acme/CPANModules/Import/PerlAdvent/2000_12_01.pm view on Meta::CPAN
=head1 INCLUDED MODULES
=over
=item * L<Data::Dumper>
=back
=head1 HOMEPAGE
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2004.pm view on Meta::CPAN
{ module => "Module::Pluggable" },
{ module => "Module::Pluggable::Ordered" },
{ module => "LWP::Parallel" },
{ module => "LWP::Simple" },
{ module => "Term::ProgressBar" },
{ module => "Data::Dumper" },
{ module => "Data::Dumper::Simple" },
{ module => "Email::Address" },
{ module => "Email::Simple" },
{ module => "File::Copy" },
{ module => "Proc::Daemon" },
{ module => "Proc::PID::File" },
lib/Acme/CPANModules/Import/PerlAdvent/2004.pm view on Meta::CPAN
=item * L<LWP::Simple>
=item * L<Term::ProgressBar>
=item * L<Data::Dumper>
=item * L<Data::Dumper::Simple>
=item * L<Email::Address>
=item * L<Email::Simple>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2005.pm view on Meta::CPAN
{ module => "Crypt::RC4" },
{ module => "Crypt::Solitaire" },
{ module => "DBD::SQLite" },
{ module => "DBI" },
{ module => "Data::Dimensions" },
{ module => "Data::Dumper" },
{ module => "Data::Dumper::Simple" },
{ module => "Data::Structure::Util" },
{ module => "Data::UUID" },
{ module => "Date::Christmas" },
{ module => "Date::Parse" },
{ module => "DateTime" },
lib/Acme/CPANModules/Import/PerlAdvent/2005.pm view on Meta::CPAN
=item * L<DBI>
=item * L<Data::Dimensions>
=item * L<Data::Dumper>
=item * L<Data::Dumper::Simple>
=item * L<Data::Structure::Util>
=item * L<Data::UUID>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2016.pm view on Meta::CPAN
{ module => "Text::Levenshtein" },
{ module => "Text::Levenshtein::Flexible" },
{ module => "Text::Levenshtein::XS" },
{ module => "Text::LevenshteinXS" },
{ module => "CHI" },
{ module => "Data::Dumper" },
{ module => "Log::Any" },
{ module => "Log::Any::Adapter" },
{ module => "Log::Dispatch" },
{ module => "Log::Log4perl" },
{ module => "List::Gather" },
lib/Acme/CPANModules/Import/PerlAdvent/2016.pm view on Meta::CPAN
=item * L<Text::LevenshteinXS>
=item * L<CHI>
=item * L<Data::Dumper>
=item * L<Log::Any>
=item * L<Log::Any::Adapter>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlDancerAdvent/2010.pm view on Meta::CPAN
{ module => "Dancer::Serializer::Abstract" },
{ module => "Dancer::Session::Abstract" },
{ module => "Dancer::Template::Abstract" },
{ module => "Apache::Session" },
{ module => "Dancer::Serializer::UUEncode" },
{ module => "Data::Dumper" },
{ module => "Storable" },
{ module => "YAML::Tiny" },
{ module => "Dancer::Logger::Spinner" },
{ module => "Dancer::ModuleLoader" },
{ module => "Dancer::Session::KiokuDB" },
lib/Acme/CPANModules/Import/PerlDancerAdvent/2010.pm view on Meta::CPAN
=item * L<Apache::Session>
=item * L<Dancer::Serializer::UUEncode>
=item * L<Data::Dumper>
=item * L<Storable>
=item * L<YAML::Tiny>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/SHARYANTO/Serialization.pm view on Meta::CPAN
description => "This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/steven_haryanto/2010/09/comparison-of-perl-serialization-modules.html] (retrieved on 2016-02-21). For the full article, visit th...
entries => [
{ module => "Data::Dump" },
{ module => "Data::Dump::PHP" },
{ module => "Data::Dump::Partial" },
{ module => "Data::Dumper" },
{ module => "Data::Serializer" },
{ module => "YAML::Syck" },
{ module => "YAML::Tiny" },
{ module => "YAML::XS" },
],
lib/Acme/CPANModules/Import/SHARYANTO/Serialization.pm view on Meta::CPAN
=item * L<Data::Dump::PHP>
=item * L<Data::Dump::Partial>
=item * L<Data::Dumper>
=item * L<Data::Serializer>
=item * L<YAML::Syck>
view release on metacpan or search on metacpan
#!perl
use strict;
use warnings;
use Test::More;
use Acme::Cat::Schroedinger;
use Data::Dumper;
sub kitty {
Acme::Cat::Schroedinger->new(@_);
}
view release on metacpan or search on metacpan
t/04_spazi.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Data::Dumper;
use_ok 'Acme::Cavaspazi';
my $string = "this is a stiring";
my $cavaspazi = cavaspazi($string);
view release on metacpan or search on metacpan
lib/Acme/Chef.pm view on Meta::CPAN
use Acme::Chef;
my $compiled = Acme::Chef->compile($code_string);
print $compiled->execute();
my $string = $compiled->dump(); # requires Data::Dumper
# Save it to disk, send it over the web, whatever.
my $reconstructed_object = eval $string;
# or:
$string = $compiled->dump('autorun'); # requires Data::Dumper
# Save it to disk, send it over the web, whatever.
my $output_of_chef_program = eval $string;
=head1 DESCRIPTION
lib/Acme/Chef.pm view on Meta::CPAN
my $self = shift;
my $type = shift;
$type = '' if not defined $type;
local $@ = undef;
require Data::Dumper;
my $dumper = Data::Dumper->new([$self], ['self']);
$dumper->Indent(0);
$dumper->Purity(1);
my $dump = $dumper->Dump();
view release on metacpan or search on metacpan
Acme::Class::Std shows those pesky serialise modules just who is boss. They
can go peeking and prodding, but they will get their fingers burnt:
=over
=item Data::Dumper
package Kakroosh;
use Acme::Class::Std;
package main;
$o = Foo->new;
use Data::Dumper;
print Dumper $o;
cannot handle ref type 15 at /usr/local/lib/perl5/5.8.8/i386-freebsd/Data/Dumper.pm line 179.
$VAR1 = bless( , 'Foo' );
view release on metacpan or search on metacpan
"perl" : "v5.16.1"
}
},
"test" : {
"requires" : {
"Data::Dumper" : "0",
"Module::Spy" : "0",
"Test2::Plugin::UTF8" : "0",
"Test2::V0" : "0",
"Test::Deep" : "0",
"Test::More" : "0"
view release on metacpan or search on metacpan
bin/coinbase.pl view on Meta::CPAN
use Acme::Coinbase::DefaultAuth;
use Acme::Coinbase::Config;
use File::Basename;
use Digest::SHA qw(hmac_sha256_hex);
use LWP::UserAgent;
use Data::Dumper;
use Carp;
use Time::HiRes;
use bignum;
my $prog = basename($0);
view release on metacpan or search on metacpan
lib/Acme/Comment.pm view on Meta::CPAN
}
}
sub parse {
#use Data::Dumper;
#print scalar @_;
#die Dumper \@_;
my $str = shift;
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/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
use 5.006; # our
use strict;
use warnings;
package Acme::Data::Dumper::Extensions;
our $VERSION = '0.001000';
# ABSTRACT: Experimental Enhancements to core Data::Dumper
# AUTHORITY
use Data::Dumper ();
use Exporter ();
my $DD_Defaults;
BEGIN {
lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
Purity => 0,
Quotekeys => 1,
Sortkeys => 0,
Terse => 0,
Toaster => q[],
Useperl => !( grep $_ eq 'Data::Dumper', @DynaLoader::dl_modules ),
Useqq => 0,
Varname => q[VAR],
};
$DD_Defaults->{Sparseseen} = 0 if eval { Data::Dumper->VERSION(2.136) };
$DD_Defaults->{Maxrecurse} = 1000 if eval { Data::Dumper->VERSION(2.153) };
$DD_Defaults->{Trailingcomma} = 0 if eval { Data::Dumper->VERSION(2.160) };
}
sub DD_Defaults {
{ %$DD_Defaults }
}
lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
1;
=head1 NAME
Acme::Data::Dumper::Extensions - Experimental Enhancements to core Data::Dumper
=head1 SYNOPSIS
use Data::Dumper;
use Acme::Data::Dumper::Extensions qw/$_new_with_defaults/;
local $Data::Dumper::Indent = 5;
my $instance = Data::Dumper->$_new_with_defaults({ }); # Indent is still 2!
$instance = Data::Dumper->$_new_with_defaults({
Indent => 4, # Easier initalizer
});
=head1 DESCRIPTION
This is just a testing ground for things that I'm suggesting for Data::Dumper.
It will likely be terrible because bolting on features after-the-fact its also
pretty ugly.
But its just a prototype.
lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
=head1 EXPORTS
=head2 C<$_new_with_defaults>
This is a prototype function for construcing a Data::Dumper instance without
being prone to leak from other people using the global values.
At the time of this writing, if you need perfect consistency from Data::Dumper
in widely used code, you by necessity have to know every version of
Data::Dumper that exists, and know what the default values are of various
arguments, in order to revert them to your "known good" state if 3rd party
code decides to locally change those values for their own purposes.
Getting an instance of a Data::Dumper object before anyone tweaks those values
would also work, but trying to bet on getting loaded and getting an instance
before anyone else does is just foolhardy
Additionally, due to how C<< ->Values >> works, having a global instance of
Data::Dumper can lend itself to a memory leak and you have to take additional
care to make sure you free values passed to it.
=head3 Syntax
The name used here is C<$_new_with_defaults> as this makes it straight forward
to migrate code that uses this once its adopted, without needing to
monkey-patch Data::Dumper itself.
Data::Dumper->$_new_with_defaults( ... )
Data::Dumper->new_with_defaults( ... )
=head3 Arguments
# Using the defaults
Data::Dumper->$_new_with_defaults()
# Augmenting the defaults
Data::Dumper->$_new_with_defaults({ Name => value, Name => value });
The approach I've taken here is to ignore the standard arguments to C<new>,
because it wasn't clear to me how else to organise this with the existing
alternative interfaces.
Given there's an alternative way of passing the dump values, its suggested
to just use those until this part of the design is sorted out:
Data::Dumper->$_new_with_defaults()->Values([ stuff, to, dump ])->Dump();
Or use the other feature suggested in this module:
Data::Dumper->$_new_with_defaults()->$_DumpValues([ stuff, to, dump ]);
=head3 Unrecognised Features
I'm still not sure how to handle what happens when somebody passes the name
of a feature which doesn't exist yet, but does in a future version.
lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
This should be a hazard to never even consider changing the default behaviour.
=head2 C<$_DumpValues>
This function is a helper that does what people who maintain a long-lived
C<Data::Dumper> instance generally desire: The ability to just set up an
instance, and then call it an arbitrary number of times with arbitrary inputs
and have it act without side effects.
However, the current implementation of Data::Dumper is such that if you have
an instance, you must B<first> store the data in the object, and B<then>
dump it, which introduces fun problems with your data living longer than you
intended it to.
Currently, you also must call C<< ->Reset >> after dumping to reset the
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/Acme/Debug.pm view on Meta::CPAN
=cut
package Acme::Debug;
use 5.008000;
use Data::Dumper;
use File::Spec;
use strict;
use warnings;
use vars qw($VERSION);
lib/Acme/Debug.pm view on Meta::CPAN
}
}
}
sub END {
use Data::Dumper;
print STDERR "bug free lines: ".($i-$i_bugs)."\n";
print STDERR "BUGgy code lines: $i_bugs\n";
print STDERR @bugs if $verbose;
}
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Acme::Dahut;
use Acme::Dahut::Call;
use Acme::Daily::Fail;
use Acme::Damn;
use Acme::DarmstadtPM::TieHash;
use Acme::Data::Dumper::Extensions;
use Acme::DateTime::Duration::Numeric;
use Acme::Debug;
use Acme::DeepThoughts;
use Acme::Devel::Hide::Tiny;
use Acme::Dice;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Data::DRef;
use Data::DublinCore;
use Data::Dump;
use Data::Dump::AutoEncode;
use Data::Dump::Color;
use Data::Dumper;
use Data::Dumper::Again;
use Data::Dumper::AutoEncode;
use Data::Dumper::Concise;
use Data::Dumper::Concise::Aligned;
use Data::Dumper::EasyOO;
use Data::Dumper::GUI;
use Data::Dumper::Hash;
use Data::Dumper::HTML::v;
use Data::Dumper::Lazyzip;
use Data::Dumper::Limited;
use Data::Dumper::LispLike;
use Data::Dumper::MessagePack;
use Data::Dumper::Names;
use Data::Dumper::OneLine;
use Data::Dumper::Perltidy;
use Data::Dumper::Simple;
use Data::Dumper::Sorted;
use Data::Dumper::Store;
use Data::Dumper::Table;
use Data::Dump::JavaScript;
use Data::Dump::OneLine;
use Data::Dump::Partial;
use Data::Dump::Patch::Deparse;
use Data::Dump::Patch::ReplaceWithDataDmp::tar;
view release on metacpan or search on metacpan
lib/Acme/Dice.pm view on Meta::CPAN
use 5.008008;
use strict;
use warnings;
use Carp;
use Data::Dumper;
BEGIN {
use Exporter ();
use vars qw(@ISA @EXPORT_OK);
@ISA = qw(Exporter);
view release on metacpan or search on metacpan
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
use warnings;
our $VERSION = '1.001005'; # VERSION
require Exporter;
our @ISA = qw/Exporter Data::Dumper/;
our @EXPORT_OK = @Data::Dumper::EXPORT_OK;
our @EXPORT = ( 'DnD', @Data::Dumper::EXPORT );
use Data::Rmap;
use Scalar::Util qw/blessed refaddr/;
use Data::Dumper ( @Data::Dumper::EXPORT, @Data::Dumper::EXPORT_OK, );
use Storable qw/dclone/;
$Storable::Deparse = 1;
sub DnD {
my @in = @_;
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
## ]
## },
## 'foo' => 'bar'
## };
# All the Data::Dumper stuff is still there...
$Data::Dumper::Useqq = 1;
print DnD "Foo\nBar";
# ... even the original Dumper()
print Dumper "Foo\nBar";
=head1 DESCRIPTION
A L<Data::Dumper>, with an additional sub that's like C<Dumper()>
but doesn't dump the contents of object refs.
=head1 EXPORTS
In addition to all the stuff available for export in L<Data::Dumper>,
this module provides C<DnD()> function (pneumonic: "Dump'n'Dumper").
=head2 C<DnD>
print DnD $data;
# Data::Dumper's vars are still available:
$Data::Dumper::Useqq = 1;
print DnD "Foo\nBar";
Takes the same stuff and returns the same output as
C<Data::Dumper::Dumper()>, except all of the
objects will be replaced with C<obj[Foo::Bar]>, where C<Foo::Bar> is
object's class. B<See caveats section below>.
=head1 CAVEATS
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
This module arose from my frustration of trying to get rid of object
guts in my dumped data (e.g. dumping C<Foo::Bar> that is a blessed
hashref, would also dump all the contents of that hashref).
Subsequently, during a conversation on IRC, C<tm604> came up with
a hack using C<$Data::Dumper::Freezer>, and the following comment
from C<hoelzro> made me decide to release a module I could actually
use, when I don't want to see any object guts.
<hoelzro> Data::Dumper::And::Dumper
* hoelzro ducks
<hoelzro> s/Dumper/Dump/ # ruined my own awful joke
P.S.: eventually I ended up using L<Data::Rmap> instead of the Freezer.
view release on metacpan or search on metacpan
t/TestSuite.pm view on Meta::CPAN
=item B<AFSMTS_dump()>
use t::TestSuite qw/ :diag /;
AFSMTS_dump $@
Dumpts through B<Data::Dumper::Dump()> (wrapped in B<Test::More::diag()>).
Void if I<STDOUT> isa not terminal, I<$ENV{QUIET}> is TRUE, I<@_> is empty, or
I<@_> consists of FALSEs.
=cut
sub AFSMTS_dump ( $ ) {
-t STDOUT && !$ENV{QUIET} && @_ && $_[0] or return;
require Data::Dumper;
Test::More::diag( Data::Dumper->Dump([ shift @_ ])) }
=item B<AFSMTS_deeply()>
use t::TestSuite qw/ :run /;
our( $rc, $bb );
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Alien::Base::Wrapper" : "0",
"Data::Dumper" : "0",
"Test2::V0" : "0.000121",
"perl" : "5.006"
}
}
},
view release on metacpan or search on metacpan
lib/Acme/Fork/Lazy.pm view on Meta::CPAN
=over 4
=item *
The Lazy modules (see L</SEE ALSO>) are all currently broken in various
exciting ways. So you may find that certain uses (like using L<Data::Dumper>
to output the result) won't trigger forcing the lazy result, and so on.
=item *
Only scalar values may be returned by a C<forked> block.
view release on metacpan or search on metacpan
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
use warnings;
use utf8;
our $VERSION = '1.0';
use Data::Dumper;
use WWW::Mechanize;
use JSON::XS qw(decode_json);
sub new($proto, %config) {
my $class = ref($proto) || $proto;
view release on metacpan or search on metacpan
eg/prefork_acme.pl view on Meta::CPAN
1;
package MyGhost;
use parent 'Acme::Ghost::Prefork';
use Data::Dumper qw/Dumper/;
sub init {
my $self = shift;
$SIG{HUP} = sub { $self->hangup };
}
view release on metacpan or search on metacpan
lib/Acme/Grep2D.pm view on Meta::CPAN
package Acme::Grep2D;
use warnings;
use strict;
use Data::Dumper;
use Perl6::Attributes;
=head1 NAME
Acme::Grep2D - Grep in 2 dimensions
view release on metacpan or search on metacpan
lib/Acme/HTTP.pm view on Meta::CPAN
# you can use http:
my $url = "http://perldoc.perl.org/perlfaq5.html";
# ...or, alternatively, use https:
# $url = "https://metacpan.org/pod/Data::Dumper";
set_redir_max(3); # Max. number of redirections
set_timeout(10); # Timeout in seconds
my $obj = Acme::HTTP->new($url) || die $@;
view release on metacpan or search on metacpan
lib/Acme/HidamariSketch/Apartment.pm view on Meta::CPAN
package Acme::HidamariSketch::Apartment;
use strict;
use warnings;
use utf8;
use Data::Dumper;
our $VERSION = "0.05";
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
script/gen-generic-ind-company-names view on Meta::CPAN
# return Data::Dump::Color::dump($res);
# } elsif (eval { require Data::Dump; 1 }) {
# return Data::Dump::dump($res);
# } else {
# no warnings 'once';
# require Data::Dumper;
# local $Data::Dumper::Terse = 1;
# local $Data::Dumper::Indent = 1;
# local $Data::Dumper::Useqq = 1;
# local $Data::Dumper::Deparse = 1;
# local $Data::Dumper::Quotekeys = 0;
# local $Data::Dumper::Sortkeys = 1;
# local $Data::Dumper::Trailingcomma = 1;
# return Data::Dumper::Dumper($res);
# }
# }
#
# unless ($format =~ /\Ajson(-pretty)?\z/) {
# warn "Unknown format '$format', fallback to json-pretty";