view release on metacpan or  search on metacpan

lib/Class/DBI/Search/Count.pm  view on Meta::CPAN

use warnings;

use base 'Class::DBI::Search::Basic';

sub sql { 
	my $self = shift;
	my $class = $self->class;
	$class->set_sql(plugged_count => qq{
		SELECT COUNT(*) FROM __TABLE__ WHERE %s
	}) unless $class->can('sql_plugged_count');
	return $class->sql_plugged_count($self->fragment);
}

sub run_search {
	my $self = shift;
	return $self->sql->select_val(@{ $self->bind });
}

1;

__END__