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;
}


##</code><code>##

ok 1 - The object isa Config::Simple::Extended
ok 2 - Config::Simple::Extended->can('param')
not ok 3 - Config::Simple::Extended->can('params')

Can't locate auto/Config/Simple/Extended/params.al in @INC (@INC contains: /home/hesco/system_admin/perl/lib lib /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at /home/hesco/system_admin/perl/lib/ClientsCompany/Mail/Log/Parse/ListMaintainence.pm line 186

##</code><code>##

/usr/lib/perl5/5.8.8

##</code><code>##

/usr/lib/perl5/site_perl/5.8.8/Config/Simple/Extended.pm