File Coverage

blib/lib/IO/Dirent.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	44	44	100.0

package IO::Dirent;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw( DT_UNKNOWN
		 DT_FIFO
		 DT_CHR
		 DT_DIR
		 DT_BLK
		 DT_REG
		 DT_LNK
		 DT_SOCK
		 DT_WHT
	       );
@EXPORT = qw( readdirent nextdirent );
%EXPORT_TAGS = ('ALL' => [@EXPORT, @EXPORT_OK]);
$VERSION = '0.05';

use constant DT_UNKNOWN =>   0;
use constant DT_FIFO    =>   1;    ## named pipe (fifo)
use constant DT_CHR     =>   2;    ## character special
use constant DT_DIR     =>   4;    ## directory
use constant DT_BLK     =>   6;    ## block special
use constant DT_REG     =>   8;    ## regular
use constant DT_LNK     =>  10;    ## symbolic link
use constant DT_SOCK    =>  12;    ## socket
use constant DT_WHT     =>  14;    ## whiteout

bootstrap IO::Dirent $VERSION;

1;
__END__