Как получить текущее значение объекта в другом файле?

Question

Чтобы обобщить мою проблему, я не собираюсь копировать/вставлять код, а писать простой код. У меня 3 файла, A.pm, B.pm C.pm.

В A.pm AI есть класс с конструктором:

package A; 
use strict; 
use warnings; 

sub new { 
    my $proto = shift; 
    my $class = ref($proto) || $proto; 
    my $self = {}; 
    $self->{NAME} = "Bob"; 
    bless ($self, $class); 
    return $self; 
} 

В моем файле B.pm, у меня есть:

package B; 
use strict; 
use warnings; 
use A; 
our $MyObjectA = new A(); 
sub myfunctionB { 
$MyObjectA->{NAME} = "Angel"; 
} 

В файле C.pm :

package C; 
use strict; 
use warnings; 
use B; 

sub myfunctionC { 
    print("There is the name of my Object".$B::MyObjectA->{NAME}."\n"); 
} 

В главном p.pl

use strict; 
use warnings; 
use B; 
use C; 

B::myfunctionB(); 
C::myfunctionC(); 

Результаты: подпрограмма C печать Боб, но я хотел бы, чтобы отобразить Angel. Как я могу сделать?

Answer 1

Прежде чем получить имя объекта, позвоните по номеру B::myfunctionB().

Answer 2

Основная проблема здесь заключается в том, что имеется модуль CPAN с именем B. Таким образом, чтобы переопределить загрузки этого модуля на месте свой собственный, вы можете поместить текущий каталог в начале @INC с помощью lib прагму:

A.pm

package A; 
use strict; 
use warnings; 

sub new { 
    my $proto = shift; 
    my $class = ref($proto) || $proto; 
    my $self = {}; 
    $self->{NAME} = "Bob"; 
    bless ($self, $class); 
    return $self; 
} 

1; 

B.pm

package B; 
use strict; 
use warnings; 
use A; 
our $MyObjectA = A->new(); 

sub myfunctionB { 
$MyObjectA->{NAME} = "Angel"; 
} 

1; 

C.pm

package C; 
use strict; 
use warnings; 
use lib '.'; 
use B; 

sub myfunctionC { 
    B::myfunctionB(); 
    print("The name of my Object: " 
      . $B::MyObjectA->{NAME} 
      . "\n" 
    ); 
} 

1; 

p.pl

use strict; 
use warnings; 
use C; 

C::myfunctionC(); 

Выход работает p.pl:

The name of my Object: Angel