$| = 1;

package Vz::DirTree;
use Data::Dumper;
use strict;
use threads ;
use threads::shared;
use Devel::Pointer;

sub _fetchDir {
	my ( $c , $root ) = @_;
	print "$root>$/";	
	
	my $dir;
	eval { opendir $dir, $root or die "$! Can't open '$root'" };
	return if $@;
	
	foreach my $file ( readdir $dir ) {
		next if $file =~/^\.{1,2}/;
		$file = "$root/$file"; 
		# print $file. $/; <------ Uncomment if you want to see progress
		push @{$c->{isFile}}, $file if -f $file;
		push @{$c->{isDir}}, $file if -d $file;
		push @{$c->{dirToFetch}}, $file if -d $file;
	}
	closedir $dir;	
}

sub _walk {
	my $addr = shift;
	my $obj = deref ( $addr ) ;			
	my $root = shift ( @{$obj->{dirToFetch}} ) ;
	$obj -> _fetchDir ( $root ) ;	
}

sub setRoot {
	my $c = shift;
	my $root = shift;
	$root = "./" unless $root;
	
	my $self = bless {
		dirToFetch => [],
		isDir => [],
		isFile => [],	
	}, $c;
	$self->_fetchDir ($root); # first scan from root dir
	
	my $objAddr : shared = address_of ( $self ) ;		
	while ( @{$self->{dirToFetch}} ) {			
		sleep 1;
		threads->create ( '_walk' , $objAddr ) -> join;
	}	
	return $self;
}

1;

package main;
use Data::Dumper;

my $dir = Vz::DirTree->setRoot ( "M:/" ) ;
print Dumper $dir;