view release on metacpan or search on metacpan
use Test::More tests => 1;
package Ingy;
use Sex qw(Data::Dumper strict ? ? ?);
package main;
pass "I survived Sex with Ingy!";
view release on metacpan or search on metacpan
BabelFish.pm view on Meta::CPAN
=head2 $phish->get_languages_hashref()
Returns a hashref of language info. It can be used to view all the available languages, their name, targets, and two letter code.
It is probably most usefull if you need to reference what the two letter code is for a given langauge.
use Data::Dumper;
print Dumper $phish->get_languages_hashref; # AltaVista::BabelFish->get_languages_hashref works also
=head2 $phish->fishinfo()
Returns content for an html page (no header) if called via a browser (IE !-t STDIN) and a text page if via CLI (IE -t STDIN)
view release on metacpan or search on metacpan
lib/Alter.pm view on Meta::CPAN
my $trans = $trans_tab{ $type};
$trans->( $_[ 0], $_[ 1]); # may change $_[ 1] ($to)
$_[ 1];
}
### Data::Dumper support (for viewing only)
{
package Alter::Dumper;
# return a viewable string containing the object information
sub Dumper {
my $obj = shift;
require Data::Dumper;
local $Data::Dumper::Purity = 1;
Data::Dumper::Dumper( $obj->Alter::image);
}
}
### Storable support
{
lib/Alter.pm view on Meta::CPAN
autovivification off for the current class. This is also the
default.
=head3 Serialization Support
Serialization is supported for human inspection in C<Data::Dumper>
style and for disk storage and cloning in C<Storable> style.
For C<Data::Dumper> support C<Alter> provides the class C<Alter::Dumper>
for use as a base class, which contains the single method C<Dumper>.
C<Dumper> returns a string that represents a hash in C<Data::Dumper>
format. The hash shows all I<alter ego>s that have been created for
the object, keyed by class. An additional key "(body)" (which can't
be a class name) holds the actual body of the object. Formatting-
and other options of C<Data::Dumper> will change the appearance of
the dump string, with the exception of C<$Data::Dumper::Purity>,
which will always be 1. C<Dumper> can also be imported from
C<Alter> directly.
Note that C<eval()>-ing a dump string will I<not> restore the
object, but rather create a hash as described. Re-creation of
lib/Alter.pm view on Meta::CPAN
fields still applies, only each class sees its individual hash.
C<Alter> based objects are garbage-collected and thread-safe without
additional measures.
C<Alter> also supports C<Data::Dumper> and C<Storable> in
a generic way, so that C<Alter> based objects can be easily be viewed
and made persistent (within the limitations of the respective modules).
C<Alter> works by giving every object a class-specific I<alter ego>,
which can be any scalar, for its (the classe's) specific needs for
view release on metacpan or search on metacpan
lib/Alvis/AinoDump.pm view on Meta::CPAN
package Alvis::AinoDump;
use warnings;
use strict;
use Data::Dumper;
$Alvis::AinoDump::VERSION = '0.1';
##############################################################################
#
view release on metacpan or search on metacpan
lib/Alvis/NLPPlatform.pm view on Meta::CPAN
use Fcntl qw(:DEFAULT :flock :seek);
use Alvis::Pipeline;
use File::Path qw(mkpath);
use File::Touch;
#use Data::Dumper;
my $cur_doc_nb;
my $done_parsing;
our $last_doc;
view release on metacpan or search on metacpan
lib/Alvis/QueryFilter.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use Data::Dumper;
use Alvis::Treetagger;
use CQL::Parser;
use URI::Escape;
view release on metacpan or search on metacpan
lib/Alvis/Saa.pm view on Meta::CPAN
use strict;
use Alvis::Tana;
# use Data::Dumper;
use Sys::Hostname;
use IO::Socket;
use IO::Select;
use Fcntl;
view release on metacpan or search on metacpan
inc/Alzabo/GUI/Mason/Build.pm view on Meta::CPAN
use Module::Build 0.16;
use base 'Module::Build';
use Cwd;
use Data::Dumper;
use File::Path;
use File::Spec;
sub ACTION_install
{
view release on metacpan or search on metacpan
inc/Alzabo/Build.pm view on Meta::CPAN
use strict;
use Module::Build 0.20;
use base 'Module::Build';
use Data::Dumper;
use File::Path;
use File::Spec;
sub ACTION_docs
{
view release on metacpan or search on metacpan
lib/Amazon/API.pm view on Meta::CPAN
use Amazon::API::Error;
use Amazon::Credentials;
use AWS::Signature4;
use Data::Dumper;
use HTTP::Request;
use JSON qw/to_json from_json/;
use LWP::UserAgent;
use Scalar::Util qw/reftype/;
use XML::Simple;
view release on metacpan or search on metacpan
lib/Amazon/Credentials.pm view on Meta::CPAN
__PACKAGE__->mk_accessors(qw/aws_secret_access_key aws_access_key_id token region
user_agent profile debug expiration role container order
serialized logger
/);
use Data::Dumper;
use Date::Format;
use Exporter;
use HTTP::Request;
use JSON;
use LWP::UserAgent;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
pathname: L/LE/LEONT/ExtUtils-Config-0.007.tar.gz
provides:
ExtUtils::Config 0.007
requirements:
Config 0
Data::Dumper 0
ExtUtils::MakeMaker 6.30
File::Find 0
File::Temp 0
Test::More 0.88
strict 0
cpanfile.snapshot view on Meta::CPAN
ExtUtils-Depends-0.306
pathname: X/XA/XAOC/ExtUtils-Depends-0.306.tar.gz
provides:
ExtUtils::Depends 0.306
requirements:
Data::Dumper 0
ExtUtils::MakeMaker 0
File::Spec 0
IO::File 0
perl 5.006
ExtUtils-Helpers-0.021
cpanfile.snapshot view on Meta::CPAN
Module::Build::PodParser 0.4211
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
cpanfile.snapshot view on Meta::CPAN
Test-Differences-0.61
pathname: O/OV/OVID/Test-Differences-0.61.tar.gz
provides:
Test::Differences 0.61
requirements:
Data::Dumper 2.126
Test::More 0
Text::Diff 0.35
Test-Exception-0.32
pathname: A/AD/ADIE/Test-Exception-0.32.tar.gz
provides:
cpanfile.snapshot view on Meta::CPAN
provides:
namespace::sweep 0.006
requirements:
B::Hooks::EndOfScope 0.09
Carp 0
Data::Dumper 0
ExtUtils::MakeMaker 6.30
List::Util 0
Package::Stash 0.33
Scalar::Util 0
Sub::Identify 0.04
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/20120810.pm view on Meta::CPAN
my $source = shift;
my $r;
ref($source) eq 'HASH' || Carp::confess("Attribute updates is not a hash ref");
foreach my $k (keys %$source) {
my $op = $source->{$k};
ref($op) eq 'HASH' || Carp::confess("AttributeUpdate for field $k is not a hash ref:" . Data::Dumper->Dump([$op]));
$r->{$k} = {
(defined($op->{Action}) ? (Action => $op->{Action}) : ()),
(defined($op->{Value}) ? (Value => { _encode_type_and_value($op->{Value}) }) : ()),
};
}
lib/Amazon/DynamoDB/20120810.pm view on Meta::CPAN
fun _create_key_schema(ArrayRef $source, HashRef $known_fields) {
defined($source) || die("No source passed to create_key_schema");
defined($known_fields) || die("No known fields passed to create_key_schmea");
my @r;
foreach my $field_name (@$source) {
defined($known_fields->{$field_name}) || Carp::confess("Unknown field specified '$field_name' in schema, must be defined in fields. schema:" . Data::Dumper->Dump([$source]));
push @r, {
AttributeName => $field_name,
KeyType => (scalar(@r) ? 'RANGE' : 'HASH')
};
}
view release on metacpan or search on metacpan
lib/Amazon/EC2.pm view on Meta::CPAN
use Amazon::Credentials;
use JSON qw/from_json to_json/;
use Scalar::Util qw/reftype/;
use XML::Simple;
use Data::Dumper;
=pod
=head1 NAME
lib/Amazon/EC2.pm view on Meta::CPAN
use strict;
use warnings;
use Amazon::EC2;
use Amazon::Credentials;
use Data::Dumper;
my $ec2 = new Amazon::EC2({credentials => new Amazon::Credentials});
my $result = $ec2->DescribeInstances();
view release on metacpan or search on metacpan
lib/Amazon/MWS/Client.pm view on Meta::CPAN
use Amazon::MWS::Orders;
use Amazon::MWS::Sellers;
use Amazon::MWS::Reports;
use Amazon::MWS::Feeds;
use Amazon::MWS::Products;
use Data::Dumper;
sub agent {
return shift->{agent};
}
view release on metacpan or search on metacpan
example/jp_iteminfo.pl view on Meta::CPAN
use warnings;
use Amazon::PAApi5::Payload;
use Amazon::PAApi5::Signature;
use HTTP::Request::Common;
use LWP::UserAgent;
use Data::Dumper;
my $PARTNER_TAG = $ENV{AMAZON_PARTNER_TAG};
my $ACCESS_KEY = $ENV{AMAZON_ACCESS_KEY};
my $SECRET_KEY = $ENV{AMAZON_SECRET_KEY};
view release on metacpan or search on metacpan
package S3::CLI;
use strict;
use warnings;
use Getopt::Long;
use Amazon::S3::Thin;
use Data::Dumper;
sub new {
return bless {}, shift;
}
view release on metacpan or search on metacpan
S3TestUtils.pm view on Meta::CPAN
package S3TestUtils;
use strict;
use warnings;
use Data::Dumper;
use English qw(-no_match_vars);
use List::Util qw(any);
use Readonly;
use Test::More;
view release on metacpan or search on metacpan
use warnings;
use Test::More;
plan tests => 1;
use Devel::Hide qw[ Digest::HMAC ];
use Amazon::S3Curl::PurePerl;
use Data::Dumper;
ok $INC{'Amazon/S3Curl/PurePerl/Digest/HMAC.pm'}, "found Amazon::S3Curl::PurePerl::Digest::HMAC in %INC";
view release on metacpan or search on metacpan
bin/QueueDaemon.pl view on Meta::CPAN
########################################################################
use Class::Inspector;
use Class::Unload;
use Cwd;
use Data::Dumper;
use English qw(-no_match_vars);
use File::Basename qw(fileparse);
use Getopt::Long qw(:config no_ignore_case);
use List::Util qw(max min);
use Log::Log4perl;
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/SQS/Simple/Base.pm view on Meta::CPAN
use HTTP::Date;
use HTTP::Request::Common;
use AWS::Signature4;
use POSIX qw(strftime);
use Encode qw(encode);
use Data::Dumper;
use Time::HiRes;
use VM::EC2::Security::CredentialCache;
use base qw(Exporter);
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;
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);
...