sub _fetchall { my ($self,%arg) = @_; my $stm = "select * from $arg{table}"; return $dbh->selectall_arrayref($stmt, {Slice => {}}); }