view release on metacpan or search on metacpan
lib/App/CISetup/Role/ConfigFile.pm view on Meta::CPAN
$yaml =~ s/^/# /gm;
# Yes, this is YAML embedded in YAML as a comment. Yes, this is dumb. Yes,
# this is necessary. Unfortunately, AppVeyor chokes on random keys in its
# config file, so we have no choice but to use a comment. We could use
# Data::Dumper but we're already using YAML, and I don't really love doing
# an "eval" when trying to read this data.
return sprintf( <<'EOF', $yaml );
### __app_cisetup__
%s
### __app_cisetup__
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
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
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
Errors from configure prereqs:
EOW
. do {
require Data::Dumper; Data::Dumper->new([ \%errors ])->Indent(2)->Terse(1)->Sortkeys(1)->Dump;
};
sleep 10 if -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT));
}
view release on metacpan or search on metacpan
bin/cpants_lint.pl view on Meta::CPAN
--help brief help message
--man full documentation
--verbose print more info during run
--colour, --color pretty output
--dump dump result using Data::Dumper
--yaml dump result as YAML
--json dump result as JSON
--save write report (or dump) to a file
--dir directory to save a report to
bin/cpants_lint.pl view on Meta::CPAN
Like C<< --verbose >>, but prettier. You need to install L<Term::ANSIColor> (and L<Win32::Console::ANSI> for Win32) to enable this option.
=head2 --dump
Dump the result using Data::Dumper (instead of displaying a report text).
=head2 --yaml
Dump the result as YAML.
view release on metacpan or search on metacpan
lib/App/CPRReporter.pm view on Meta::CPAN
use Carp qw/croak carp/;
use Text::ResusciAnneparser;
use Spreadsheet::XLSX;
use Text::Iconv;
use Data::Dumper;
use Text::Fuzzy::PP;
has employees => (
is => 'ro',
isa => 'Str',
view release on metacpan or search on metacpan
lib/App/CSE/Lucy/Search/QueryParser.pm view on Meta::CPAN
use base qw/Lucy::Search::QueryParser/;
use Log::Log4perl;
my $LOGGER = Log::Log4perl->get_logger();
use Data::Dumper;
sub make_term_query{
my ($self, %options) = @_;
my $field = $options{field};
view release on metacpan or search on metacpan
lib/App/CamelPKI/CA.pm view on Meta::CPAN
my $cursor = $ca->database->search(name => "Fred");
is($cursor->revocation_time(), undef,
"The Fred's certificate is not yet revoked");
is(my $fredid = $cursor->infos->{uid}->[0], 43,
"Using CADB to get the Fred's UID")
or warn Data::Dumper::Dumper(scalar($cursor->infos));
# Fred got his operation, so he need a new certificate:
$ca->issue("App::CamelPKI::CertTemplate::Foo", $pubkey,
name => "Frida", uid => $fredid);
$cursor = $ca->database->search(name => "Fred", -revoked => undef);
isnt($cursor->revocation_time(), undef,
view release on metacpan or search on metacpan
eg/test-charm/hooks/install view on Meta::CPAN
#!/usr/bin/env perl
use charm;
use Data::Dumper;
my $docker = plugin 'docker', { version => 7 };
print Dumper($docker->version);
view release on metacpan or search on metacpan
devel/MyExtractUse.pm view on Meta::CPAN
# print "re: $re\n";
# my $str = "eval 'use Foo::Bar 3; 1' ";
# print "str: $str\n";
# if ($str =~ $use_eval_string_re) {
# print "match\n";
# require Data::Dumper;
# print Data::Dumper::Dumper(\%+);
# } else {
# print "no match\n";
# }
# exit 0;
devel/MyExtractUse.pm view on Meta::CPAN
$ret{'pos'} = pos($str);
$ret{'version'} = version->new($ret{'version'} || 0);
push @ret, \%ret;
if (DEBUG) {
require Data::Dumper;
print Data::Dumper::Dumper(\%ret);
}
}
};
# $str = _pod_to_comments ($str);
view release on metacpan or search on metacpan
use FindBin qw/ $RealBin /;
# use lib "$RealBin/lib";
use v5.30;
use File::Basename qw/ basename dirname /;
use Data::Dumper;
use Getopt::Long;
use Term::ANSIColor qw( colored );
use My::Color qw/ :all /;
use My::Opts;
view release on metacpan or search on metacpan
t/lib/Test/MySimple.pm view on Meta::CPAN
use warnings;
use parent 'App::Cmd::Simple';
our $VERSION = '0.123';
use Data::Dumper;
sub execute {
my ($self, $opt, $args) = @_;
local $Data::Dumper::Terse = 1;
print Dumper([ $opt, $args ]);
}
sub validate_args {
my ($self, $opt, $args) = @_;
view release on metacpan or search on metacpan
lib/App/Cmdline.pm view on Meta::CPAN
)
);
}
# The main job is implemented here
use Data::Dumper;
sub execute {
my ($self, $opt, $args) = @_;
print STDERR "Started...\n" unless $opt->quiet;
print STDOUT 'Options ($opt): ' . Dumper ($opt);
view release on metacpan or search on metacpan
lib/App/Cme/Command/dump.pm view on Meta::CPAN
use base qw/App::Cme::Common/;
use Config::Model::ObjTreeScanner;
use YAML::PP qw/Dump/;
use JSON;
use Data::Dumper;
sub validate_args {
my ($self, $opt, $args) = @_;
$self->check_unknown_args($args);
$opt->{quiet} = 1; # don't want to mess up yaml output
view release on metacpan or search on metacpan
lib/App/ColorNamer.pm view on Meta::CPAN
If C<get_name()> method fails, the error will be available as a human
readable string returned by C<error()> method.
=head2 C<known_colors>
use Data::Dumper;
print Dumper $app->known_colors;
$VAR1 = {
'rgb' => {
'r' => 255,
view release on metacpan or search on metacpan
lib/App/Conf.pm view on Meta::CPAN
$conf = $context->conf();
print $conf->dump(), "\n";
=cut
use Data::Dumper;
sub dump {
my ($self) = @_;
my %copy = %$self;
delete $copy{context}; # don't dump the reference to the context itself
my $d = Data::Dumper->new([ \%copy ], [ "conf" ]);
$d->Indent(1);
return $d->Dump();
}
1;
view release on metacpan or search on metacpan
t/files/indent.snapshot view on Meta::CPAN
Module::Build::PodParser 0.4224
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
use warnings;
use Config;
use POSIX ();
use Cwd;
use ExtUtils::MakeMaker;
use Data::Dumper;
our $VERSION = "1.00";
my $cpan = "www.cpan.org";
my $cdir0 = "~/.cpanx";
view release on metacpan or search on metacpan
lib/App/Critique/Command/collect.pm view on Meta::CPAN
PROCESS_LOOP:
while ( @partitions ) {
my ($start, $end) = @{ shift @partitions };
#use Data::Dumper;
#warn Dumper [ $start, $end ];
$pm->start and next PROCESS_LOOP;
my @filtered;
view release on metacpan or search on metacpan
xt/cntrl_db_browser.t view on Meta::CPAN
my $use_lib = 0;
my $warn_to_fatal = 0;
open my $fh, '<', $file or die $!;
while ( my $line = <$fh> ) {
if ( $line =~ /^\s*use\s+Data::Dumper/s ) {
$data_dumper++;
}
if ( $line =~ /^\s*use\s+warnings\s+FATAL/s ) {
$warnings++;
}
xt/cntrl_db_browser.t view on Meta::CPAN
$warn_to_fatal++;
}
}
close $fh;
is( $data_dumper, 0, 'OK - Data::Dumper in "' . basename( $file ) . '" disabled.' );
is( $warnings, 0, 'OK - warnings FATAL in "' . basename( $file ) . '" disabled.' );
is( $use_lib, 0, 'OK - no "use lib" in "' . basename( $file ) . '"' );
is( $warn_to_fatal, 0, 'OK - no "warn to fatal" in "' . basename( $file ) . '"' );
}
view release on metacpan or search on metacpan
"perl" : "5.010"
}
},
"test" : {
"requires" : {
"Data::Dumper" : "0",
"Test::More" : "0",
"lib" : "0"
}
}
},
view release on metacpan or search on metacpan
scripts/network-interface-info.pl view on Meta::CPAN
use Net::IP;
use Net::ISC::DHCPClient;
use POSIX qw();
use Getopt::Long;
use Pod::Usage;
use Data::Dumper;
use warnings;
use strict;
view release on metacpan or search on metacpan
lib/App/DNS/Adblock.pm view on Meta::CPAN
use Mozilla::CA;
use POSIX qw( strftime );
use Carp;
use Data::Dumper;
use Storable qw(freeze thaw);
my $attributes;
view release on metacpan or search on metacpan
lib/App/DPath.pm view on Meta::CPAN
my $ini = Config::INI::Serializer->new;
$output .= $ini->serialize($resultlist);
}
elsif ($outtype eq "dumper")
{
require Data::Dumper;
$output .= Data::Dumper::Dumper($resultlist);
}
elsif ($outtype eq "xml")
{
require XML::Simple;
my $xs = new XML::Simple;
view release on metacpan or search on metacpan
lib/App/Dapper.pm view on Meta::CPAN
use YAML::PP qw/ Load Dump LoadFile DumpFile /;
use File::Spec::Functions qw/ canonpath /;
use File::Path qw(make_path);
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
use DateTime;
use DateTime::Format::XSD;
use App::Dapper::Serve;
view release on metacpan or search on metacpan
lib/App/Deps/Verify.pm view on Meta::CPAN
{
my ( $self, $args ) = @_;
my %not_found;
foreach my $mods ( @{ $args->{inputs} } )
{
use Data::Dumper;
# die Dumper($mods);
my @required_modules = keys %{$mods};
REQUIRED: