Bonjour à tous,
je sollicite une nouvelle fois le forum, car j'ai un problème entre mes différents packages.

Ce message s'affiche lorsque j'exécute mon programme principal.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
can t locate object method "new" via package "Sql" at View.pm line 45 Compilation failed require at Sql.pm line 4
Mes différentes classes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl
package View;
 
use warnings;
use strict;
use Tk;
use Sql;
 
 
sub new
{
	my ($class) = @_;
	my $this = {};
	bless($this, $class);
	return $this;
}
 
my $sql = Sql->new();
 
...
 
1;                # Important, à ne pas oublier
__END__           # Le compilateur ne lira pas les lignes après elle

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl
package Sql;
 
use View;
use warnings;
use strict;
use DBI;
 
 
sub new
{
	my ($class) = @_;
	my $this = {};
	bless($this, $class);
	return $this;
}
 
my $view = View->new();
 
...
 
1;                # Important, à ne pas oublier
__END__           # Le compilateur ne lira pas les lignes après elle
Merci à ceux qui me viennent en aide.