view release on metacpan or  search on metacpan

t/Jump.pm  view on Meta::CPAN

			delete $structure->{in_db} ;
			}
		}

	return(Data::TreeDumper::DefaultNodesToDisplay($structure)) ;
	} ;

$yaml = "---\n$yaml\n" ;
my $directory_structure = Load($yaml) ;

DumpTree $directory_structure, 'munged', NO_OUTPUT => 1, FILTER => $get_db_paths ;

#diag "YAML\n$yaml\n";
#diag DumpTree $directory_structure, 'Directories' ;
#diag DumpTree \%db_paths, 'DB' ;

return ($directory_structure, \%db_paths) ;
}

# ---------------------------------------------------------------------------------------------------