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/Groonga/Result.pm view on Meta::CPAN
package AnyEvent::Groonga::Result;
use strict;
use warnings;
use base qw( Class::Accessor::Fast );
use AnyEvent::Groonga::Result::Select;
use Data::Dumper;
use Encode;
__PACKAGE__->mk_accessors($_) for qw( data posted_command );
sub new {
lib/AnyEvent/Groonga/Result.pm view on Meta::CPAN
sub dump {
my $self = shift;
{
no warnings 'redefine';
local *Data::Dumper::qquote = sub { return shift; };
local $Data::Dumper::Useperl = 1;
return encode( "utf8", decode( "utf8", Dumper( $self->data ) ) );
}
}
view release on metacpan or search on metacpan
HEAD => "https://www.google.com",
headers => { "user-agent" => "MySearchClient 1.0" },
timeout => 30,
sub {
my ($body, $hdr) = @_;
use Data::Dumper;
print Dumper $hdr;
}
;
Example: do another simple HTTP GET request, but immediately try to
view release on metacpan or search on metacpan
benchmark.pl view on Meta::CPAN
#!/usr/bin/env perl
use common::sense; #new features in perl
use Getopt::Long; # to command line parsing
use AnyEvent::HTTP; # use for http requests and etc. methods
use POSIX; # POSIX related stuff
use Data::Dumper; # to debug data
use AnyEvent::CacheDNS ':register'; # dns requests caching
my $DEBUG = 0; #Debug mode. Default is false (0)
my $verbose = 0; #to view the each connection result
my $timeout = 60;
my $count = 30000; #default number of requests
view release on metacpan or search on metacpan
lib/AnyEvent/I3.pm view on Meta::CPAN
say "Currently, you use " . @{$workspaces} . " workspaces";
A somewhat more involved example which dumps the i3 layout tree whenever there
is a workspace event:
use Data::Dumper;
use AnyEvent;
use AnyEvent::I3;
my $i3 = i3();
view release on metacpan or search on metacpan
lib/AnyEvent/I3X/Workspace/OnDemand.pm view on Meta::CPAN
use AnyEvent::I3 qw(:all);
use List::Util qw(first any);
use File::Spec::Functions qw(catfile);
use Data::Compare;
use Data::Dumper;
field $i3;
field $layout_path : param = catfile($ENV{HOME}, qw(.config i3));
field @groups;
view release on metacpan or search on metacpan
examples/proxy.pl view on Meta::CPAN
use AE;
use AnyEvent::IRC::Server;
use AnyEvent::IRC::Client;
use Lingua::JA::Gal;
use opts;
use Data::Dumper;
opts my $port => 'Int';
my $ircd = AnyEvent::IRC::Server->new(
port => $port,
view release on metacpan or search on metacpan
samples/debug_console view on Meta::CPAN
use common::sense;
use IO::Handle;
use AnyEvent;
use AnyEvent::IRC::Client;
use AnyEvent::IRC::Util qw/mk_msg parse_irc_msg encode_ctcp/;
use Data::Dumper;
my ($nick, $server, $port) = @ARGV;
my $c = AnyEvent->condvar;
my $stdout = AnyEvent::Handle->new (fh => \*STDOUT);
samples/debug_console view on Meta::CPAN
if ($line =~ /^!/) {
my $r = eval $line;
if ($@) {
warn "eval error: $@\n";
} else {
$Data::Dumper::Terse = 1;
$stdout->push_write ("result: " . Data::Dumper::Dumper ($r));
}
} else {
my $msg = parse_irc_msg ($line);
$con->send_msg ($msg->{command}, @{$msg->{params}});
}
view release on metacpan or search on metacpan
t/02-prima-http.t view on Meta::CPAN
my $server = Test::HTTP::LocalServer->spawn();
my $mw = Prima::MainWindow->new();
use Data::Dumper;
my $res;
my $timer;
my $web_request;
my $answer;
view release on metacpan or search on metacpan
lib/AnyEvent/Inotify/Simple.pm view on Meta::CPAN
$self->handle_move_to($relative, $event->cookie);
$handled = 1;
}
if (!$handled){
require Data::Dumper;
local $Data::Dumper::Maxdepth = 2;
Carp::cluck "BUGBUG: Unhandled event: ".
Data::Dumper->Dump($event);
}
}
sub rel2abs {
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
lib/AnyEvent/KVStore/Etcd.pm view on Meta::CPAN
=cut
sub _portability_wrapper {
my ($sub, $result) = @_;
use Data::Dumper;
for my $e (@{decode_json($result)->{result}->{events}}){
$e = $e->{kv};
&$sub(decode_base64($e->{key}), decode_base64($e->{value}));
}
}
view release on metacpan or search on metacpan
lib/AnyEvent/Mattermost.pm view on Meta::CPAN
reference containing the payload of the event. For channel messages this will
include things like the sender's name, the channel name and type, and of course
the message itself.
For more explanation of event types, hope that the Mattermost project documents
them at some point. For now, L<Data::Dumper> based callbacks are your best bet.
=cut
sub on {
my ($self, %registrations) = @_;
view release on metacpan or search on metacpan
lib/AnyEvent/Memcached.pm view on Meta::CPAN
$args{cb}(1) if $args{cb};
return 1;
}
$_ and $_->begin for $self->{cv}, $args{cv};
my $cv = AE::cv {
#use Data::Dumper;
#warn Dumper $res,\%res,\%err;
if ($res != -1) {
$args{cb}($res);
}
elsif (!%err) {
view release on metacpan or search on metacpan
lib/AnyEvent/MySQL.pm view on Meta::CPAN
use warnings;
BEGIN {
eval {
require AE;
require Data::Dumper;
require Devel::StackTrace;
require EV;
};
if( $@ ) {
warn "require module fail: $@";
view release on metacpan or search on metacpan
lib/Module/AnyEvent/Helper/PPI/Transform/Net/Amazon/S3/Client/Object.pm view on Meta::CPAN
use strict;
use warnings;
use parent qw(Module::AnyEvent::Helper::PPI::Transform::Net::Amazon::S3);
use Data::Dumper;
my $arrayref = PPI::Document->new(\'[]');
sub _is_enum_decl
{
return $_[0]->isa('PPI::Statement') &&
view release on metacpan or search on metacpan
t/Timeouter.pm view on Meta::CPAN
package Timeouter;
use strict;
use utf8;
use warnings qw(all);
use Data::Dumper;
use Moo;
use MooX::Types::MooseLike::Base qw(Num);
use Test::More;
use Time::HiRes qw(time);
view release on metacpan or search on metacpan
examples/pktproxy.pl view on Meta::CPAN
my ($self, $server_socket) = @_;
if (defined $server_socket) {
$self->{server_socket} = $server_socket;
my $client_socket = $self->{client_socket};
use Data::Dumper;
print STDERR Data::Dumper->Dump([$self], [qw($self)]);
$self->{c2s_forwarder} = packet_forwarder $client_socket, $server_socket, $header_templ,
weak_method_callback($self, '_on_data', 'c2s');
$self->{s2c_forwarder} = packet_forwarder $server_socket, $client_socket, $header_templ,
weak_method_callback($self, '_on_data', 's2c');
view release on metacpan or search on metacpan
lib/AnyEvent/PacketReader.pm view on Meta::CPAN
my %short_templ = map { $_ => $_ } keys %header_length;
my %load_offset = %header_length;
my $good_packers = join '', keys %header_length;
use Data::Dumper;
$SIG{INT} = sub {
print Data::Dumper->Dump([\%short_templ, \%header_length, \%load_offset], [qw(%short_templ %header_length %load_offset)]);
exit 1;
};
sub packet_reader {
my $cb = pop;
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/Pg/Pool.pm view on Meta::CPAN
use strict;
use warnings;
use 5.010;
use Carp qw(verbose croak);
use Data::Dumper;
use Method::WeakCallback qw(weak_method_callback);
use AnyEvent::Pg;
BEGIN {
*debug = \$AnyEvent::Pg::debug;
view release on metacpan or search on metacpan
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Data::Dumper" : "0",
"IO::Socket::INET" : "0",
"Test::Exception" : "0",
"Test::More" : "0"
}
}
view release on metacpan or search on metacpan
lib/AnyEvent/RabbitMQ/PubSub.pm view on Meta::CPAN
use 5.010;
use strict;
use warnings;
use AnyEvent;
use AnyEvent::RabbitMQ;
use Data::Dumper;
use Carp qw(longmess);
our $VERSION = "3.2.1";
sub connect {
view release on metacpan or search on metacpan
lib/AnyEvent/RabbitMQ.pm view on Meta::CPAN
use Devel::GlobalDestruction;
use File::ShareDir;
use Readonly;
use Scalar::Util qw/ weaken /;
require Data::Dumper;
sub 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;
&Data::Dumper::Dumper
}
use AnyEvent::Handle;
use AnyEvent::Socket;
view release on metacpan or search on metacpan
example/client.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use Data::Dumper;
use Data::HexDump;
use Time::HiRes;
use Data::Radius::Constants qw(:all);
use AnyEvent::Radius::Client;
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
t/03_real_riak_test.t view on Meta::CPAN
sub { $cv->send($_[0]) } );
my $res = $cv->recv();
ok(defined $res->{props}->{basic_quorum});
};
# print STDERR Dumper(\@_); use Data::Dumper;
# print STDERR Dumper($res); use Data::Dumper;
done_testing;
# END {
view release on metacpan or search on metacpan
my %module_build_args = (
"build_requires" => {
"Cwd" => 0,
"Data::Dumper" => 0,
"Digest::MD5" => 0,
"File::Find" => 0,
"File::Temp" => 0,
"IO::Socket" => 0,
"List::Util" => 0,
view release on metacpan or search on metacpan
ex/server-fnc.pl view on Meta::CPAN
use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::SMTP::Server 'smtp_server';
use Data::Dumper;
my $cv = AnyEvent->condvar;
smtp_server undef, 2525, sub {
warn "MAIL=".Dumper shift;