package MyApp::DB::User; use Moose; has dbh => (is => 'ro', required => 1); sub runQuery { return $shift->dbh->selectrow_array("sp_msforeachtable 'SELECT * FROM \?'"); }