sub _blessdocs {
my ($self, $docsref) = @_;
- map { Zeal::Document->new(+{%$_, docset => $self}) } @$docsref;
+ map {
+ my %hash = (%$_, docset => $self);
+ ($hash{path}, $hash{anchor}) = split /#/s, $hash{path};
+ Zeal::Document->new(\%hash);
+ } @$docsref;
}
sub fetch {