Dir::Self(3pm) User Contributed Perl Documentation Dir::Self(3pm)NAME
Dir::Self - a __DIR__ constant for the directory your source file is in
SYNOPSIS
use Dir::Self;
use lib __DIR__ . "/lib";
my $conffile = __DIR__ . "/config";
DESCRIPTION
Perl has two pseudo-constants describing the current location in your source code, "__FILE__" and "__LINE__". This module adds "__DIR__",
which expands to the directory your source file is in, as an absolute pathname.
This is useful if your code wants to access files in the same directory, like helper modules or configuration data. This is a bit like
FindBin except it's not limited to the main program, i.e. you can also use it in modules. And it actually works.
As of version 0.10 each use of "__DIR__" recomputes the directory name; this ensures that files in different directories that share the
same package name get correct results. If you don't want this, "use Dir::Self qw(:static)" will create a true "__DIR__" constant in your
package that contains the directory name at the point of "use".
AUTHOR
Lukas Mai <l.mai @web.de>
COPYRIGHT AND LICENSE
Copyright (C) 2007, 2008 by Lukas Mai
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
perl v5.10.1 2008-05-11 Dir::Self(3pm)
Check Out this Related Man Page
Test::Dir(3pm) User Contributed Perl Documentation Test::Dir(3pm)NAME
Test::Dir - test directory attributes
SYNOPSIS
use Test::More ...;
use Test::Dir;
DESCRIPTION
This modules provides a collection of test utilities for directory attributes. Use it in combination with Test::More in your test
programs.
FUNCTIONS
dir_exists_ok(DIRNAME [, TESTNAME] )
Ok if the directory exists, and not ok otherwise.
dir_not_exists_ok(DIRNAME [, TESTNAME] )
Ok if the directory does not exist, and not ok otherwise.
dir_empty_ok(DIRNAME [, TESTNAME] )
Ok if the directory is empty (contains no files or subdirectories), and not ok otherwise.
dir_not_empty_ok(DIRNAME [, TESTNAME] )
Ok if the directory is not empty, and not ok otherwise.
dir_readable_ok(DIRNAME [, TESTNAME] )
Ok if the directory is readable, and not ok otherwise.
dir_not_readable_ok(DIRNAME [, TESTNAME] )
Ok if the directory is not readable, and not ok otherwise.
dir_writable_ok(DIRNAME [, TESTNAME] )
Ok if the directory is writable, and not ok otherwise.
dir_not_writable_ok(DIRNAME [, TESTNAME] )
Ok if the directory is not writable, and not ok otherwise.
dir_executable_ok(DIRNAME [, TESTNAME] )
Ok if the directory is executable, and not ok otherwise.
dir_not_executable_ok(DIRNAME [, TESTNAME] )
Ok if the directory is not executable, and not ok otherwise.
TO DO
I know there are a lot more directory attributes that can be tested. If you need them, please ask (or better yet, contribute code!).
AUTHOR
Martin 'Kingpin' Thurn, "mthurn at cpan.org", <http://tinyurl.com/nn67z>.
BUGS
Please report any bugs or feature requests to "bug-test-dir at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Dir>. I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Test::Dir
You can also look for information at:
o RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Dir>
o AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/Test-Dir>
o CPAN Ratings
<http://cpanratings.perl.org/d/Test-Dir>
o Search CPAN
<http://search.cpan.org/dist/Test-Dir>
ACKNOWLEDGEMENTS COPYRIGHT &; LICENSE
Copyright (C) 2007-2008 Martin 'Kingpin' Thurn
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2011-03-05 Test::Dir(3pm)