the problem is i need to generate and validate mongo db quiries, iam writing the below module for validating query,i need to get an error message or some trip condition,the name of the collection acually present is 'student' but if i give 'studentgggggg' its not giving any error message ......please help me out
#!/usr/bin/perl
use MongoDB;
use JSON;
use Data::Dumper;
my $conn = MongoDB::Connection->new(
host => 'xxxxxxx',
port => 27017,
username=>'xxxx',
password=>'xxxx',
db_name => 'prav'
);
my $database = $conn->get_database( 'prav' );
my $collection = $database->get_collection( 'studenttgggggg');
my $err = $database->last_error();
print Dumper $err;
my $data = $collection->find({"id"=>"stu_7"});
my $err = $collection->last_error();
# print %$err;
print Dumper $err;
#print Dumper $data;
while (my $doc = $data->next) {
my @qual=@{$doc->{'qualifications'}};
print @qual;
print "\n";
}