use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $tx = $ua->get( shift );
これらのPerlオブジェクト($ uaおよび$ tx)の構造と継承履歴を取得するにはどうすればよいですか?
Data :: Dumperは、構造と継承履歴のごく一部のみを表示します。
Perlは変数の履歴値を追跡しません。
Perlは、履歴の継承関係を追跡しません。
オブジェクトには継承関係がありません。クラスはそうします。
オブジェクトの現在の構造は、以下を使用して見つけることができます。
use Data::Dumper qw( Dumper );
{
local $Data::Dumper::Purity = 1;
print(Dumper($o));
}
(制限があります:dualvarsの値が1つだけ表示され、関連する魔法は表示されませんなど。より正確な表現が必要な場合は、Devel :: PeekをDump
使用できます。)
オブジェクトのクラスが現在継承しているクラスは、以下を使用して見つけることができます。
use mro qw( );
use Scalar::Util qw( blessed );
say join ", ", @{ mro::get_linear_isa(blessed($o)) };
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加