Help for this page

Select Code to Download

Select or download this

my %derived = listOfDerivedClasses( 'Element' );

...
    die "Derived type $type not available" unless exists $derived{ $ty
+pe };
    push @instances, $type->new();
}

Select or download this

while( <SQL> ) {
    my( $type ) = m[...];
...
    die "Derived type $type not available:'$@'" if $@;
    push @instances, $inst;
}