Problème d'accès à une variable dans un tableau

Bonjour à tous,

Je rencontre un problème pour accéder à une variable.

Voilà mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub bug_end_of_update {
    my ($self, $args) = @_;
 
    # This code doesn't actually *do* anything, it's just here to show you
    # how to use this hook.
    my ($bug, $old_bug, $timestamp, $changes) = 
        @$args{qw(bug old_bug timestamp changes)};
 
	open (MYFILE, ">>$ExtensionDataPath/debug.txt");
	print MYFILE Dumper $bug;
	print "\n";
	close (MYFILE);
 
	my $PersonneAssignee = $bug->assigned_to_obj->login_name;

Lorsque je visualise le contenu de $bug j'obtiens:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$VAR1 = bless( {
                 'priority' => '---',
                 'keyword_objects' => [],
                 'bug_id' => '919',
                 ...
                 'bug_status' => 'NEW',
                 'delta_ts' => '2013-09-11 09:17:31',
                 'flags' => [],
                 'assigned_to_obj' => bless( {
                                               'disable_mail' => '0',
                                               'realname' => 'Jean Dupont',
                                               'userid' => '10',
                                               'disabledtext' => '',
                                               'login_name' => 'jean.dupond',
                                               'showmybugslink' => '1'
                                             }, 'Bugzilla::User' ),
				...

Alors je me suis dit que pour accéder à la valeur de login_name dans assigned_to_obj j'avais juste à faire:

Code:

my $PersonneAssignee = $bug->assigned_to_obj->login_name;

sauf que j'obtiens une erreur dans ce cas.

Pourtant

Code:

my $PersonneAssignee = $bug->bug_id

fonctionne bien.

Comment faire pour obtenir la valeur du champ login_name?

Merci