an old fashion OO Perl generator able to be instancied with schema package name string parameter