sub get_setup { my $self = shift; my $subscriber_id = shift; my $stmt = 'SELECT * FROM admin_setup WHERE subscriber_id = ?'; my %setup = % { $self->dbh('subscribers')->selectrow_hashref($stmt, undef, $subscriber_id) }; return \%setup; }