sub breadcrumbs()

in src/lib/view.pm [183:201]

• 19 lines of code
• 7 McCabe index (conditional complexity)

sub breadcrumbs {
    my @path = split m!/!, shift;
    pop @path if $path[-1] eq 'index.html';
    my $final = scalar @path ? pop @path : 'velocity';
    $final ||= "velocity";
    $final =~ s/\.html$//;
    $final =~ s/-/ /g;
    my @rv = ();
    my $relpath = "";
    for (@path) {
        $_ = lc;
        $relpath .= "$_/";
        $_ ||= "velocity";
        push @rv, qq(<a href="$relpath">$_</a>);
    }
    my $header = '<ul><li><a href="http://www.apache.org">apache</a></li><li>';
    my $path = scalar @path ? ( join "</li><li>", @rv ) . '</li><li>' : '';
    return $header . $path . '<a href="#">' . $final . '</a></li></ul>';        
}