Help for this page

Select Code to Download

Select or download this

sub define {
    my $self = shift;
...

    print STDERR "Created type: $type\n";
}