如何获取Perl对象（不是类）的结构和继承历史？

如何获取这些Perl对象的结构和继承历史（$ua和$tx）

---

Data:：Dumper只显示结构和继承历史的一小部分。

Perl不跟踪变量的历史值

---

Perl不跟踪历史继承关系

对象没有继承关系；当然可以

---

对象的当前结构可以通过以下方式找到：

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $tx = $ua->get( shift );

use Data::Dumper qw( Dumper );

{
   local $Data::Dumper::Purity = 1;
   print(Dumper($o));
}

（它有一些限制：只显示一个dualvars值；不显示关联的magic；等等。如果您需要更精确的表示，可以使用Devel:：Peek的

转储文件
）

对象类当前从中继承的类可以通过以下方式找到：

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $tx = $ua->get( shift );

use Data::Dumper qw( Dumper );

{
   local $Data::Dumper::Purity = 1;
   print(Dumper($o));
}

Perl不跟踪变量的历史值

Perl不跟踪历史继承关系

对象没有继承关系；当然可以


对象的当前结构可以通过以下方式找到：

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $tx = $ua->get( shift );

use Data::Dumper qw( Dumper );

{
   local $Data::Dumper::Purity = 1;
   print(Dumper($o));
}

（它有一些限制：只显示一个dualvars值；不显示关联的magic；等等。如果您需要更精确的表示，可以使用Devel:：Peek的
转储文件
）

对象类当前从中继承的类可以通过以下方式找到：

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $tx = $ua->get( shift );

use Data::Dumper qw( Dumper );

{
   local $Data::Dumper::Purity = 1;
   print(Dumper($o));
}

还有，你到底想找出什么？在95%的情况下，你需要知道的关于一个对象的唯一一件事就是它的属性。不支持仅基于对象的编程结构执行任何操作。你是对的。所有事情都有很好的记录。但是，为了探索UserAgent对象，我必须花费大量时间阅读文档和编写注释。另一方面，如果我能看到UserAgent对象的完整结构，这将节省我阅读文档的时间？在95%的情况下，你需要知道的关于一个对象的唯一一件事就是它的属性。不支持仅基于对象的编程结构执行任何操作。你是对的。所有事情都有很好的记录。但是，为了探索UserAgent对象，我必须花费大量时间阅读文档和编写注释。另一方面，如果我看到UserAgent对象的完整结构，它将节省我阅读文档的时间。