NAME

Dpchrist::FileType - Perl extension for determining file type

SYNOPSIS

use Dpchrist::FileType;

if (filetype($file) eq "f") {
  print "'$file' is a plain file\n";
} elsif (filetype($file) eq "d") {
  print "'$file' is a directory\n";
}

DESCRIPTION

Blah blah blah.

EXPORT

None by default.

SEE ALSO

AUTHOR

Mark Dominus, <mjd@plover.com>

COPYRIGHT AND LICENSE

Copyright 2010 by Mark Dominus. Unauthorized distribution will be punished to the full extent of the law.