package AClient::Mail::Log::Parse::ListMaintainence;

sub tabulate_template_fields_by_email {
  my $self = shift;
  my $email = shift;
  isa_ok($self->{'cfg'},'Config::Simple::Extended');
  can_ok($self->{'cfg'},'param');
  can_ok($self->{'cfg'},'params');
  my $uid = AClient::CMS::Drupal::SimpleNews::get_uid_from_email($self,$email);

  # at which point it is bombing out.

}

package AClient::CMS::Drupal::SimpleNews;

sub get_uid_from_email {
  my $self = shift;
  my $email = shift;
  my $sql_get_uid = $self->{'cfg'}->param("sql.get_uid_from_email");
  my $sth_get_uid = $self->{'dbh'}->prepare($sql_get_uid);
  $sth_get_uid->execute($email);
  my ($uid) = $sth_get_uid->fetchrow_array();
  return $uid;
}