The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -I. -w
use strict;

use Test::More tests => 2;

sub set_sql
{
	my ( $class, $name, $sql ) = @_;
	no strict 'refs';
	*{ "$class\::sql_$name" } =
		sub
		{ };
}

use Class::DBI::Plugin::AbstractCount;
can_ok( 'main', qw( count_search_where ) );
can_ok( 'main', qw( sql_count_search_where ) );

__END__