sub breadcrumbs()

in ARCHIVE/OLD-from-apache-cms/lib/view.pm [363:393]

• 31 lines of code
• 6 McCabe index (conditional complexity)

sub breadcrumbs {
    my @path = split m!/!, shift;
    pop @path;
    my @rv;
    my $relpath = "";
    my $ext;
    my $sep = "/";
    for (@path) {
        $relpath .= "$sep$_";
        if ($_) {
            $_ = "";
            my $datafile = "content$relpath.mdtext";
            my %data;
            if (-f $datafile) {
                read_text_file $datafile, \%data;
                $ext = ".html";
                $sep = "/";
                my $title = ${data{headers}}{title};
                if ($title) {
                    $_ = $title;
                }
            }
        } else {
            $_ = "Home";
            $ext = "";
            $sep = "";
        }
        push @rv, qq(<a href="$relpath$ext">$_</a>) if $_;
    }
    return join "&nbsp;&raquo&nbsp;", @rv;
}