sub prefix()

in lib/DocUtil.pm [92:96]

• 4 lines of code
• 1 McCabe index (conditional complexity)

sub prefix(@) {
    my ($vol, $dir) = File::Spec->splitpath($ARGV[1], 1);

    map {File::Spec->catpath($vol, $dir, $_)} @_;
}