如何獲得另一個文件中的對象的當前值？

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(); 

結果：子程序Ç打印鮑勃，但我想它顯示天使。我能怎麼做？

Answer 1

之前獲取對象的名字，叫B::myfunctionB()。

Answer 2

這裏的主要問題似乎是，有一個名爲B一個CPAN模塊。

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：所以重寫裝載該模塊代替你自己的，你可以通過使用lib編譯把當前目錄中的@INC開始

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