my $obj = Module -> new;
my ($type) = "$obj" =~ /=(\w+)[(]0x[0-9A-Fa-f]+[)]$/;