my $handler = new XML::PerlSAX::Handler::Sanctum(
  # assume all packages are named "Publish::$element"
  baseclass => 'Publisher',
  # prefer "Publish::$parent::$element" 
  #   over "Publish::$element", to allow a book title 
  #   to be a different object than a chapter title.
  heirarchic => 'preferred',
  );

my $otherhandler = new XML::PerlSAX::Handler::Sanctum(
  dictionary => { 
    # clear cases...
    BOOK => 'Publish::Book',
    CHAPTER => 'Publish::Chapter',
    PARAGRAPH => 'Publish::Paragraph',
    # <BOOK><TITLE></TITLE></BOOK> gets treated differently
    # than <CHAPTER><TITLE>... or <PARAGRAPH><TITLE>...
    'BOOK TITLE' => 'Publish::Book::Title',
    'CHAPTER TITLE' => 'Publish::Chapter::Title',
    TITLE => 'Publish::SectionHeading',
    }
  );