Синтаксическая ошибка при использовании модуля Perl DBI

Я пишу код Perl и использую модульDBIв файле с расширением .pm.

При импорте модуля DBIя получаю сообщение об ошибке вида

syntax error at /etc/perl/Foo.pm line 13, near "DBI:"
Compilation failed in require at join.pl

В файле join.plмы вызываем модуль Foo.pmas

use Foo;
Foo::dbconnect();

и код в Foo.pmтакой

#!/usr/bin/perl

package Foo;

use DBI;

sub dbconnect {
  my $database = "DB_NAME";
  my $user ="user_name";
  my $password = "password";
  my $dsn = "dbi:mysql:$database:localhost:3306";
  my $connect = DBI:connect->($dsn, $user, $password)
      or die "can't connect to the db   $DBI::errstr\n";
  return $connect;
}

1;

Я получаю сообщение об ошибке в строке

my $connect = DBI:connect->($dsn, $user, $password)
    or die "can't connect to the db   $DBI::errstr\n";

Пожалуйста, помогите мне решить эту проблему.

0
задан Borodin 15 June 2012 в 08:40
поделиться