NAME

FindBin::Parents - List parent dirs of the given path from curr to root.

SYNOPSIS

use FindBin::Parents qw( dir_paths );

# on *NIX (incl. OSX)
# '/foo/bar/bim/bam' yields
# /foo/bar/bim/bam
# /foo/bar/bim
# /foo/bar
# /foo
#
# on VMS
# 'Bletch$Blort:[foo.bar.bim.bam]' yields
# Bletch$Blort:[foo.bar.bim.bam] 
# Bletch$Blort:[foo.bar.bim] 
# Bletch$Blort:[foo.bar] 
# Bletch$Blort:[foo] 
#
# on MSW
# 'z:/foo/bar/bim/bam' yields
# z:/foo/bar/bim/bam
# z:/foo/bar/bim 
# z:/foo/bar 
# z:/foo 
#
# $path is first passed through rel2abs and canonpath 
# which should yield clean, absolute paths. 
#
# note that the return vlaue is context-sensitive:

my $array_ref   = dir_paths $path;
my @array       = dir_paths $path;

# for any non-directory /foo/bar/bletch/blort, the final
# 'blort' is dropped and the paths leading to it are returned:

dir_paths $0;

# /foo/bar/bletch   # parent dir of blort
# /foo/bar
# /foo

# Note: non-existant paths are processed, but may require
# an extra assume-dir argument to treat the argument as a 
# directory (or not, no way to tell unless it exists, eh?).
#
# the default is true, these are equivalent:

my @found       
= dir_paths '/foo/bar/bletch/blort/non-existent';

my @found       
= dir_paths '/foo/bar/bletch/blort/non-existent', 1;

# /foo/bar/bletch/blort/non-existant
# /foo/bar/bletch/blort
# /foo/bar/bletch
# /foo/bar/bletch
# /foo/bar
# /foo

# false value drops the last entry:

my @found       
= dir_paths '/foo/bar/bletch/blort/non-existant', 0;

# /foo/bar/bletch/blort
# /foo/bar/bletch
# /foo/bar/bletch
# /foo/bar
# /foo