sub Fetch { my $class = shift; my $sql = $class->{SQL}; #return $sql->fetchrow_array(); } sub RowCount { my $class = shift; my $sql = $class->{SQL}; return $sql->rows; }