root/tags/mogilefs-server-2.17/makedocs.pl

#!/usr/bin/perl

use strict;

my $base = "/home/lj/htdocs/dev/mogdocs/";
my $pshb = Goats->new;
$pshb->batch_convert([qw(mogstored mogilefsd lib)], $base);

package Goats;

use strict;
use base 'Pod::Simple::HTMLBatch';

sub modnames2paths {
    my ($self, $dirs) = @_;

    my @files;
    my @dirs;

    foreach my $path (@{$dirs || []}) {
        if (-f $path) {
            push @files, $path;
        } else {
            push @dirs, $path;
        }
    }

    my $m2p = $self->SUPER::modnames2paths(\@dirs);

    foreach my $file (@files) {
        my ($tail) = $file =~ m!([^/]+)\z!;
        $m2p->{$tail} = $file;
    }

    # these are symlinks in brad's lib
    foreach my $k (keys %$m2p) {
        delete $m2p->{$k} if $k eq "Danga::blib::lib::Danga::Socket" || $k eq "Danga::Socket";
    }

    return $m2p;
}