AnyEvent-DBD-Pg

 view release on metacpan or  search on metacpan

ex/sample.pl  view on Meta::CPAN

	use common::sense 3;
	use lib::abs '../lib';
	use EV;
	
	use AnyEvent::DBD::Pg;
	
	my $adb = AnyEvent::DBD::Pg->new('dbi:Pg:dbname=test', user => 'pass', {
		pg_enable_utf8 => 1,
		pg_server_prepare => 0,
		quote_char => '"',
		name_sep => ".",
	}, debug => 1);

t/00-load.t  view on Meta::CPAN

#!/usr/bin/env perl

use common::sense;
use lib::abs '../lib';
use Test::More tests => 1;

BEGIN {
	use_ok( 'AnyEvent::DBD::Pg' );
}

diag( "Testing AnyEvent::DBD::Pg $AnyEvent::DBD::Pg::VERSION, Perl $], $^X" );

exit 0;
require Test::NoWarnings;

t/pod.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use common::sense;
use Test::More;
use lib::abs "../lib";
BEGIN {
	my $lib = lib::abs::path( ".." );
	chdir $lib or plan skip_all => "Can't chdir to dist $lib";
}

# Ensure a recent version of Test::Pod
eval "use Test::Pod 1.22; 1"
	or plan skip_all => "Test::Pod 1.22 required for testing POD";
eval "use File::Find; 1"
	or plan skip_all => "File::Find required for testing POD";

xt/99-dist.t  view on Meta::CPAN

#!/usr/bin/perl

use lib::abs '../lib';
use Test::More;
use Test::Dist;
use Test::NoWarnings;
chdir lib::abs::path('..');

Test::Dist::dist_ok(
	run => 1,
	'+' => 1,
	skip => [qw(prereq podcover)],
	kwalitee => {