package DB; map { __PACKAGE__->register_class($_, __PACKAGE__ . "::$_") } qw(Person);