gistfile1.PL

package WuB::Schema::ResultSet;
use base qw/DBIx::Class::ResultSet/;

sub has_rows {
  my $self = shift;
  my @pk = $self->result_source->primary_columns;
  my $first_row = $self->search( undef, {
    select => \@pk,
    rows   => 1,
    order_by => \'1'
  })->next;
  return $first_row ? 1 : 0;
}