sub parseNavigator {
	my $this = shift;
	my $parser = new XML::Parser::Expat;
	$parser->setHandlers('Start' => \&$this->sh,
	                     'End'   => \&$this->eh,
	                     'Char'  => \&$this->ch);
.
.
sub sh {
	my ($this, $p, $el, %atts) = @_;
.
.