sub _get_billing_plan_options {
  my $self = shift;
  my @billing_plan_options;
  my $sql = $self->{'cfg'}->param("sql.get_svc_plan_options");
  $self->log('DEBUG','->_get_billing_plan_options() says our query is: ' . $sql);
  my $sth = $self->{'dbh'}->prepare($sql);
  $self->log('DEBUG','Our $sth is: ',$sth);
  while (my $options = $sth->fetchrow_hashref()){
    $options->{'plan_type'} =~ s/_/ /;
    push @billing_plan_options, [ 'service_plan_' . $options->{'svc_plan_id'}, $options->{'plan_name'}, $options->{'plan_type'} ];
    push @billing_plan_options, [ 'service_plan_prepay_' . $options->{'svc_plan_id'}, $options->{'plan_name'}, $options->{'plan_type'} ];
  }
  return \@billing_plan_options;
}

##</code><code>##

DEBUG: ->_get_billing_plan_options() says our query is: SELECT svc_plan_id, plan_name, plan_type FROM svc_plans WHERE plan_active ORDER BY plan_type, plan_sort_order 

DEBUG: Our $sth is:
$VAR1 = bless( {}, 'DBI::st' );

Uncaught exception from user code:
DBD::Pg::st fetchrow_hashref failed: no statement executing