view release on metacpan or search on metacpan
lib/AnyEvent/Serialize.pm view on Meta::CPAN
deserialize $string, sub { my ($object, $error, $tail) = @_ }
=head1 DESCRIPTION
Sometimes You need to serialize/deserialize a lot of data. If You
do it using L<Data::Dumper> or B<eval> it can take You too much time.
This module splits (de)serialization process into fixed-size parts
and does this work in non-blocking mode.
This module uses L<Data::StreamSerializer> and L<Data::StreamDeserializer>
to serialize or deserialize Your data.
view release on metacpan or search on metacpan
lib/AnyEvent/SlackBot.pm view on Meta::CPAN
use Modern::Perl;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use namespace::clean;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;
use HTTP::Request::Common qw(POST);
use AnyEvent::HTTP::MultiGet;
lib/AnyEvent/SlackBot.pm view on Meta::CPAN
AnyEvent::SlackBot - AnyEvent Driven Slack Bot Interface
=head1 SYNOPSIS
use Modern::Perl;
use Data::Dumper;
use AnyEvent::SlackBot;
use AnyEvent::Loop;
$|=1;
my $sb=AnyEvent::SlackBot->new(
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/Spark.pm view on Meta::CPAN
package AnyEvent::HTTP::Spark;
use Modern::Perl;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use Data::Dumper;
use JSON qw(to_json from_json);
use HTTP::Request::Common qw(POST);
use Ref::Util qw(is_plain_arrayref is_plain_hashref);
use URI::Escape qw(uri_escape_utf8);
use namespace::clean;
view release on metacpan or search on metacpan
lib/AnyEvent/Sway.pm view on Meta::CPAN
say "Currently, you use " . @{$workspaces} . " workspaces";
A somewhat more involved example which dumps the Sway layout tree whenever there
is a workspace event:
use Data::Dumper;
use AnyEvent;
use AnyEvent::Sway;
my $sway = sway();
view release on metacpan or search on metacpan
lib/AnyEvent/Task.pm view on Meta::CPAN
connect => ['unix/', '/tmp/anyevent-task.socket'],
);
my $log_defer_object = Log::Defer->new(sub {
my $msg = shift;
use Data::Dumper; ## or whatever
print Dumper($msg);
});
$log_defer_object->info('going to compute some operation in a worker');
view release on metacpan or search on metacpan
t/streaming.t view on Meta::CPAN
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Twitter::Stream;
use AnyEvent::Util qw(guard);
use Data::Dumper;
use JSON;
use Test::More;
use Test::TCP;
use Test::Requires qw(Plack::Builder Plack::Handler::Twiggy Try::Tiny);
use Test::Requires { 'Plack::Request' => '0.99' };
view release on metacpan or search on metacpan
lib/AnyEvent/Twitter.pm view on Meta::CPAN
AnyEvent::Twitter - A thin wrapper for Twitter API using OAuth
=head1 SYNOPSIS
use utf8;
use Data::Dumper;
use AnyEvent;
use AnyEvent::Twitter;
my $ua = AnyEvent::Twitter->new(
consumer_key => 'consumer_key',
view release on metacpan or search on metacpan
lib/AnyEvent/UserAgent.pm view on Meta::CPAN
AnyEvent::UserAgent - AnyEvent::HTTP OO-wrapper
=head1 SYNOPSIS
use AnyEvent::UserAgent;
use Data::Dumper;
my $ua = AnyEvent::UserAgent->new;
my $cv = AE::cv;
$ua->get('http://example.com/', sub {
view release on metacpan or search on metacpan
lib/AnyEvent/WebArchive.pm view on Meta::CPAN
package AnyEvent::WebArchive;
use strict;
use AnyEvent::HTTP;
use Data::Dumper;
use base 'Exporter';
our $VERSION = '0.02';
our @EXPORT = qw(restore_url);
my $DEBUG = 0;
view release on metacpan or search on metacpan
lib/AnyEvent/XMLRPC.pm view on Meta::CPAN
# use strict qw(vars subs);
# use feature qw(say state switch);
# no warnings;
use utf8;
#~ use Data::Dumper;
use Frontier::RPC2;
use base qw(AnyEvent::HTTPD);
=encoding utf8
view release on metacpan or search on metacpan
lib/AnyEvent/XMPP/Ext/Receipts.pm view on Meta::CPAN
package AnyEvent::XMPP::Ext::Receipts;
use AnyEvent;
use AnyEvent::XMPP::Ext;
use AnyEvent::XMPP::Util qw/is_bare_jid/;
use AnyEvent::XMPP::Namespaces qw/set_xmpp_ns_alias/;
use Data::Dumper;
use warnings;
use strict;
our @ISA = qw/AnyEvent::XMPP::Ext/;
view release on metacpan or search on metacpan
lib/AnyLoader.pm view on Meta::CPAN
You might not want to let *every* package be AnyLoaded, so ways of
qualifying what gets loaded are provided. A list of modules can be
given to C<use AnyLoader> and only those modules will be AnyLoaded.
use AnyLoader qw(Data::Dumper Carp);
Data::Dumper::Dumper($foo); # This works.
LWP::Simple::get($url); # This doesn't.
If you wish to shut off AnyLoader, C<no AnyLoader> will do so for the
current package. C<no AnyLoader> also takes a list of modules. These
modules are those which are specifically B<not> to be loaded.
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
my $self = shift;
return map {
ref $_
? do {
$self->_try(sub { require Data::Dumper }, die_on_fail => 1);
my $dumper = Data::Dumper->new( [$_] );
$dumper->Indent(1)->Terse(1);
$dumper->Sortkeys(1) if $dumper->can("Sortkeys");
$dumper->Dump;
}
: $_
view release on metacpan or search on metacpan
lib/AnyMongo/Collection.pm view on Meta::CPAN
$request_id, $db.'.$cmd', 0, 0, -1, $last_error);
# $conn->recv($cursor);
$conn->send_message("$req$query");
my ($number_received,$cursor_id,$result) = $conn->recv_message();
# use Data::Dumper;
# warn "_make_safe getlasterror number_received:$number_received cursor_id:$cursor_id result=> ".Dumper($result);
if ( $number_received == 1 ) {
my $ok = $result->[0];
# $result->{ok} is 1 if err is set
view release on metacpan or search on metacpan
if($ENV{MOD_PERL}) {
# Only pre-load these if in a mod_perl environment for sharing memory post fork.
# These will not be loaded then for CGI until absolutely necessary at runtime
push(@load_modules, qw(
mod_perl
MLDBM::Serializer::Data::Dumper Devel::Symdump CGI
Apache::ASP::StateManager Apache::ASP::Session Apache::ASP::Application
Apache::ASP::StatINC Apache::ASP::Error
)
);
}
'such as: SDBM_File (default), or DB_File',
StateSerializer =>
'cannot load StateSerializer '.
'must be a valid serializing perl module for use with MLDBM '.
'such as Data::Dumper (default), or Storable',
StatINC => "You need this module for StatINC, please download it from CPAN",
'Cache' => "You need this module for xml output caching",
my $parse_data = $self->Parse($include);
my $no_cache = $self->{no_cache};
my $data;
# use Data::Dumper qw(Dumper);
# print STDERR Dumper($include, $parse_data);
# $self->Debug($self);
if ($parse_data->{is_perl}) {
my $sub = $self->CompilePerl($parse_data->{data}, $subid, $package);
of the state management, moving to MLDBM::Sync for its
subsystem.
=item StateSerializer
default Data::Dumper, you may set this to Storable for
faster serialization and storage of data into state objects.
This is particularly useful when storing large objects in
$Session and $Application, as the Storable.pm module has a faster
implementation of freezing and thawing data from and to
perl structures. Note that if you are storing this much
that SDBM_File has on key/value lengths.
This configuration setting may be changed in production
as the state database's serializer type is stored
in the internal state manager which will always use
Data::Dumper & SDBM_File to store data.
PerlSetVar StateSerializer Data::Dumper
=head2 Sessions
=item CookiePath
chmod -R -0777 eg
will take care of the write access issue for initial testing purposes.
Failing write access being the problem, try upgrading your version
of Data::Dumper and MLDBM, which are the modules used to write the
state files.
=head2 Sessions
=item How can I use $Session to store complex data structures.
=item $VERSION = 2.23; $DATE="10/11/2001";
+Make sure a couple other small standard modules get loaded
upon "PerlModule Apache::ASP", like Time::HiRes, Class::Struct,
and MLDBM::Serializer::Data::Dumper. If not available
these modules won't cause errors, but will promote child httpd
RAM sharing if they are.
-XMLSubs args parsing fix so an arg like z-index
does not error under UseStrict. This is OK now:
the configurations for $Application & $Session
in an internal database, so that if $Session was
created with SDBM_File for the StateDB (default),
it will keep this StateDB setting until it ends.
+StateSerializer config setting. Default Data::Dumper,
can also be set to Storable. Controls how data is
serialized before writing to $Application & $Session.
+Beefed up the make test suite.
view release on metacpan or search on metacpan
use XML::Simple ;
# thinking of using XML::XPath instead of XML::Simple.
# use XML::XPath ;
use Data::Dumper ;
# version info
$Apache::Access::Headers::VERSION = '0.01' ;
$Apache::Access::Headers::REVISION = '$Revision: 1.5 $' ;
view release on metacpan or search on metacpan
lib/Apache/Action.pm view on Meta::CPAN
use strict;
use vars qw($VERSION @ISA %ACTIONS);
use Carp;
use Exporter;
use Data::Dumper;
use Apache::Constants qw(:response);
$VERSION = 0.02;
@ISA = qw(Exporter);
view release on metacpan or search on metacpan
lib/Apache/Admin/Config.pm view on Meta::CPAN
{
return $self->_set_error(sprintf('%s: syntax error at line %d', $file, $n));
}
}
eval('use Data::Dumper; print Data::Dumper::Dumper($self), "\n";') if($Apache::Admin::Config::DEBUG);
return 1;
}
sub _get_arg
view release on metacpan or search on metacpan
lib/Apache/Auth/AuthMemCookie.pm view on Meta::CPAN
use Apache2::Log;
use Cache::Memcached;
use vars qw($VERSION);
$VERSION = '0.04';
use Data::Dumper;
=pod
=head1 B<Apache::Auth::AuthMemCookie - Authenticate using a memcache stored session>
view release on metacpan or search on metacpan
lib/Apache/AuthCookieNTLM.pm view on Meta::CPAN
# Small wrapper to Apache::AuthenNTLM to store user login details to cookie
# and reduce the number of PDC requests.
use strict;
use Data::Dumper;
use Apache::Constants ':common';
use Apache::Request;
use Apache::Cookie;
use Apache::AuthenNTLM;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile
(
'NAME' => 'Apache::AuthenLDAP',
'VERSION_FROM' => 'AuthenLDAP.pm',
'PREREQ_PM' => { 'Apache' => '1.24', 'Net::LDAP' => '0.19',
'Data::Dumper' => '2.101' },
'dist' => { 'COMPRESS' => 'gzip -9f', 'SUFFIX' => 'gz', },
);
view release on metacpan or search on metacpan
AutoIndex.pm view on Meta::CPAN
place_doc($r, $cfg, 'readme');
print " <HR>" . $ENV{'SERVER_SIGNATURE'};
if ($config->{debug}) {
use Data::Dumper;
print "<PRE>";
print "<HR>\%list<BR><BR>";
print Dumper \%$list;
print "<HR>\$cfg<BR><BR>";
print Dumper $cfg;
AutoIndex.pm view on Meta::CPAN
push (@s , "Done " . $nDir . " listings so far<BR>");
push (@s , "Done " . $nRedir . " redirects so far<BR>");
push (@s , "Done " . $nIndex. " indexes so far<BR>");
push (@s , "Done " . $nThumb. " thumbnails so far<BR>");
use Data::Dumper;
my $string = Dumper $cfg;
push (@s, $string);
return \@s;
}
view release on metacpan or search on metacpan
lib/Apache/AxKit/Provider/XMLDOMProvider.pm view on Meta::CPAN
use Apache::AxKit::Provider::File;
use XML::LibXML;
use LWP::UserAgent;
use Time::Piece;
# only used for debugging
#use Data::Dumper;
require Exporter;
our @ISA = qw(Exporter Apache::AxKit::Provider);
view release on metacpan or search on metacpan
examples/server.pl view on Meta::CPAN
AGAIN:
$act = $self->{map}->{$id};
# print "\naction: $act for $id\n";
if (defined($self->{decay}->{$id})) {
my $d = $self->{decay}->{$id};
# require Data::Dumper;
# print "\n".Data::Dumper->Dump([$d]);
if ($d->{delay} > 0) {
if ($act eq 'delay') {
if (exists($decay{$d->{delay}})) {
$out{$id} = $decay{$d->{delay}};
} else {
view release on metacpan or search on metacpan
t/02parser.t view on Meta::CPAN
is($c->find_siblings_directive_names(($c->root->daughters)[-1],
'LoadModule'),
$load_modules[$i],
"found $load_modules[$i] LoadModule's one level down");
# Data::Dumper does not sort the hash keys so different versions of
# Perl generate the same object but different Data::Dumper::Dumper
# outputs. To work around this, recursively descend into the object
# and print the output ourselves. Also, the errstr object variable
# will sometimes be set and contain operating system specific error
# messages which will not compare identically with the error
# messages in the answer files, so modify them by removing the
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker ();
use Cwd ;
use Data::Dumper ;
foreach my $f ('makepl_args.apache_dav', '../makepl_args.apache_dav')
{
if (-f $f)
{
Makefile.PL view on Meta::CPAN
'OPTIMIZE' => '-ggdb',
) ;
open FH, ">xs/mmargs.pl" or die "Cannot open xs/mmargs.pl ($!)" ;
print FH Data::Dumper -> Dump ([\%MMARGS], ['MMARGS']) ;
close FH ;
ExtUtils::MakeMaker::WriteMakefile(
'NAME' => 'Apache::DAV',
view release on metacpan or search on metacpan
bin/webstat_mail.pl view on Meta::CPAN
use strict;
use DBI;
use Carp;
use vars qw(%opts %conf);
use Getopt::Std;
use Data::Dumper;
use Date::Format;
use Net::SMTP;
getopts("dtc:MTh", \%opts);
&usage if ($opts{h});
bin/webstat_mail.pl view on Meta::CPAN
# for each server: do something..
while( my ($server, $serverconfig) = each %WebStat::Config::server) {
next if ($server eq "default");
print "$server\n" if $opts{d};
#print Data::Dumper->Dump([\$serverconfig], [qw($serverconfig)]) if $opts{d};
# setup a few useful dates
my %dates = (
today => time2str("%Y-%m-%d", time),
yesterday => time2str("%Y-%m-%d", time-(60*60*24)),
bin/webstat_mail.pl view on Meta::CPAN
sub readconfigfile {
my $conffile = $opts{c} || "./webstat.conf";
require $conffile;
if ($opts{d}) {
#print Data::Dumper->Dump([\%WebStat::Config::server], [qw(server)]);
#print Data::Dumper->Dump([\%WebStat::Config::database], [qw(database)]);
}
}
# count hits and traffic
view release on metacpan or search on metacpan
DebugInfo.pm view on Meta::CPAN
use 5.005;
use mod_perl 1.2401;
use Apache::Constants qw( OK DECLINED );
use Apache::File;
use Apache::Log;
use Data::Dumper;
use strict;
$Apache::DebugInfo::VERSION = '0.05';
# set debug level
DebugInfo.pm view on Meta::CPAN
my %hash = %$pnotes;
foreach my $field (sort keys %hash) {
my $value = $hash{$field};
my $d = Data::Dumper->new([$value]);
$d->Pad("\t\t");
$d->Indent(1);
$d->Quotekeys(0);
$d->Terse(1);
view release on metacpan or search on metacpan
lang/langdbm.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use MLDBM qw(GDBM_File Data::Dumper);
use Fcntl;
use Data::Dumper;
my %lang = ();
opendir(DH, ".") or die $!;
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
use File::stat;
use Archive::Any;
use POSIX qw(strftime);
use CGI::Cookie;
use Apache::Constants ':common';
#use Data::Dumper;
require 5.005_62;
our $VERSION = '0.19';