NAME

FileHandle::Fmode - determine whether a filehandle is opened for reading, writing, or both.

SYNOPSIS

use FileHandle::Fmode qw(:all);
.
.
#$fh and FH are open filehandles
print is_R($fh), "\n";
print is_W(\*FH), "\n";

FUNCTIONS

$bool = is_R($fh);
$bool = is_R(\*FH);
 Returns true if the argument is readable.
 Else returns false.

$bool = is_W($fh);
$bool = is_W(\*FH);
 Returns true if the argument is writable.
 Else returns false

$bool = is_RO($fh);
$bool = is_RO(\*FH);
 Returns true if the argument is readable but not writable.
 Else returns false

$bool = is_WO($fh);
$bool = is_WO(\*FH);
 Returns true if the argument is writable but not readable.
 Else returns false

$bool = is_RW($fh);
$bool = is_RW(\*FH);
 Returns true if the argument is both readable and writable.
 Else returns false

CREDITS

Inspired (hmmm ... is that the right word ?) by an idea from BrowserUK
posted on PerlMonks in response to a question from dragonchild. Win32
code (including XS code) provided by BrowserUK. Zaxo presented the idea 
of using fcntl() in an earlier PerlMonks thread.

LICENSE

This program is free software; you may redistribute it and/or 
modify it under the same terms as Perl itself.

AUTHOR

Sisyphus <kalinabears at iinet dot net dot au>