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;
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;
}
: $_