File Coverage

lib/File/Find/Rule/DirectoryEmpty.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	27	28	96.4

package File::Find::Rule::DirectoryEmpty;
use strict;
use base 'File::Find::Rule';
use vars qw($VERSION);
$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)/g;

sub File::Find::Rule::directoryempty {
	my $self = shift->_force_object;


	$self->exec(
		sub {
			opendir(DIR,+shift) or return;

         for( readdir DIR ){
            if( !/^\.\.?$/ ){
               closedir DIR;
               return 0;
            }
         }
         closedir DIR;
         return 1;
		}
	);
}



1;

__END__