File Coverage

lib/File/EmptyDirs.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	7	8	87.5
condition	1	4	25.0
subroutine	6	6	100.0
pod	1	1	100.0
total	43	47	91.4

package File::EmptyDirs;
use strict;
use Carp;
require Exporter;
use vars qw/@ISA @EXPORT_OK $VERSION/;
use File::Find::Rule::DirectoryEmpty;
use Cwd;
@ISA = qw/Exporter/;
@EXPORT_OK = qw/remove_empty_dirs/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)/g;

sub remove_empty_dirs {
	my $abs = shift;
	-d $abs or Carp::cluck("argument [$abs] is not a dir.") and return;

   my @empty_dirs_removed;


	my $found_empty_subdirs=1; # startflag
	while ($found_empty_subdirs){
	   $found_empty_subdirs=0; # assume we will not find empty subdirs to continue with

		my @empty_dirs = File::Find::Rule::DirectoryEmpty->directoryempty->in($abs) ;

      EMPTY_DIR: for my $d (@empty_dirs){

         next if (Cwd::abs_path($d) eq Cwd::abs_path($abs));

         $found_empty_subdirs++;

         rmdir($d)
            or Carp::cluck("cannot rmdir '$d', check permissions? '$!'")
            and next EMPTY_DIR;

         push @empty_dirs_removed, $d;
      }
	}

   wantarray ? ( @empty_dirs_removed ) : ( scalar @empty_dirs_removed );

}

1;

__END__