В общем что-то не получается заюзать как следует ООП
Есть такая задача . . . работа с БД . . .
Основной скрипт:
#!/usr/bin/perl
use lib "./pm";
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Mysql;
print CGI::header;
my $connect = Mysql->new();
my $db_h = $connect->connect();
$connect->execute_query("DROP TABLE aaa");
----------------- Mysql.pm
package Mysql;
sub new {
my $check = shift;
my $class = ref( $check ) || $check;
my $self = {};
bless($self, $class);
return $self;
}
sub connect {
my $self = shift;
my $query_setcharset = shift;
my $SQL_DATABASE = "wiw_test";
my $SQL_HOSTNAME = "localhost";
my $SQL_PORT = "3306";
my $SQL_USER = "wiw_test";
my $SQL_PASSWORD = "123";
$self->{dbh} = DBI->connect("DBI:mysql:database=$SQL_DATABASE;host=$SQL_HOSTNAME;port=$SQL_PORT", $SQL_USER, $SQL_PASSWORD) || die ($DBI::errstr);
$query_setcharset = $self->{dbh}->prepare("SET NAMES cp1251");
$query_setcharset->execute();
$query_setcharset->finish();
}
sub disconnect {
my $self = shift;
$self->disconnect() || die $DBI::errstr;
}
sub execute_query {
my $self = shift;
my $query = shift;
print "$self , $query";
my $query = $self->prepare($query);
$query->execute();
}
1;
Коннект проходит нормально, объект создается.
При попытке сделать запрос - выдает ошибку, что метод prepare не найден
при попытке сделать дисконнет - перл вообще вываливается . . .