The node you are looking for is at
Texinfo::Report my $registrar = Texinfo::Report::new()
.