&a_href_cc,&text_cc: Require default {""} (or cluck).
{
my($url,$contents,%args)=@_;
{
my($url,$contents,%args)=@_;
# A bit ineffective but we must process all the possibilities to get stable 'headers_in' hits!
my %map=map(($_=>a_href($url->{$_},$contents,%args)),keys(%$url));
# A bit ineffective but we must process all the possibilities to get stable 'headers_in' hits!
my %map=map(($_=>a_href($url->{$_},$contents,%args)),keys(%$url));
- my $r=$map{_cc()};
- return $r if $r;
- return $contents;
+ my $r;
+ $r||=$map{_cc()};
+ $r||=$map{""};
+ return $r;
}
# $tree={"JP"=>"specific",...};
}
# $tree={"JP"=>"specific",...};
+ cluck if !$tree->{""};
+ my $r;
+ $r||=$tree->{_cc()};
+ $r||=$tree->{""};
+ return $r;