>>186
>>187
返信ありがとうございます。
イメージとしては

use strict;
package _A;
our $foo = 1;
our $var = 2;

package _B;
sub new {
my $self = {A => '_A'};
return bless $self, __PACKAGE__;
}

package main;
my $c = _B->new();
$c->{A}::foo # 1を取得したい
$c->{A}::var # 2を取得したい

↑コードとしては上記のようなイメージです。

わかり難くて申し訳ないです。
よろしくお願いします。