>>484
use fieldsで近いことが出来るね。
my ClassName $self = $_[0];
と組み合わせて。