view release on metacpan or  search on metacpan

lib/EBook/Ishmael/EBook/Mobi.pm  view on Meta::CPAN

	my $data;
	$$data = $self->{_pdb}->record($idx)->data;

	my ($idxhdr, $hordt1, $hordt2) = $self->_parse_indx_header($data);
	my $icount = $idxhdr->{count};
	my $roff = 0;
	my $off = $idx + $icount + 1;

	for my $i (0 .. $idxhdr->{nctoc} - 1) {
		my $cdata = $self->{_pdb}->record($off + $i)->data;
		my $ctocdict = $self->_read_ctoc(\$cdata);
		for my $j (sort keys %$ctocdict) {
			$ctoc->{ $j + $roff } = $ctocdict->{ $j };
		}
		$roff += 0x10000;
	}

	my $tagstart = $idxhdr->{len};
	my ($ctrlcount, $tagtbl) = _read_tag_section($tagstart, $data);

	for my $i ($idx + 1 .. $idx + 1 + $icount - 1) {