use strict;
package DB;

CHECK{ print "$_ => $DB::sub{$_}" for sort keys %DB::sub; die 'Done'; }
sub DB{ return; }

1;