view release on metacpan or  search on metacpan

inc/Test/Builder.pm  view on Meta::CPAN

}

#line 1704

sub explain {
    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;
          }
          : $_
    } @_;
}

#line 1733

t/pubsub.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More tests => 3;
use FindBin;
use lib "$FindBin::Bin/../lib";
use AnyEvent;
use AnyMQ;
use AnyMQ::Pg;
use Data::Dumper;

my $cv;
my $listener;
my $notif_count = 0;

BEGIN {
    use_ok('AnyMQ::Pg') || warn "Error using AnyMQ::Pg!\n";
}

SKIP: {