Code:
sub languages{ my $self = shift; if (!$self->{LANGUAGE}) { my @language = (); my $statement = $db1->prepare("select Id, Name, syllableData from language"); $statement->execute(); while(my @array = $statement->fetchrow_array()){ my ($id , $name, $syllableData) = @array; push (@language, $object); } $statement->finish(); $db1->disconnect or warn $db1->errstr; $self->{LANGUAGE} = \@language; } return $self->{LANGUAGE}; }
and I got this error "DBD::SQLite::d b prepare failed: attempt to prepare on inactive database handle at C: ~~~~"
Comment