Data-TreeDumper

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Check::ISA" : "0",
            "Class::ISA" : "0",
            "Sort::Naturally" : "0",
            "Term::Size" : "0.2",
            "Text::Wrap" : "2001.0929"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.43",
   "x_serialization_backend" : "JSON::PP version 4.07"
}

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Data-TreeDumper
no_index:
  directory:
    - t
    - inc
requires:
  Check::ISA: '0'
  Class::ISA: '0'
  Sort::Naturally: '0'
  Term::Size: '0.2'
  Text::Wrap: '2001.0929'
version: '0.43'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
$prerequisits = 
	{
	Text::Wrap  => 2001.0929,
	Class::ISA  => 0,
	Sort::Naturally => 0,
	Check::ISA => 0,
	} ;

if($^O ne 'MSWin32')
	{
	$prerequisits->{'Term::Size'} = 0.2 ;
	}
else
	{
	$prerequisits->{'Win32::Console'} = 0

Todo  view on Meta::CPAN

#GetElement is called twice per element this could be optiimized away

#Display when sub levels are not displayed anymore because of MAX_LEVEL
	=> use DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH
	
#Handle operator overloading. 
#support Scalar::Cycle type

#hash key sorting is alphanumeric giving the list '1, 2, 21, 22, 3, ...)
	=> use Sort::Naturally
	
#wrap error 
	test with: [nadim@nadim config]$ pbs -p parent.pl parent -save_config xyz -display_depend_start  -cw2 'bold yellow' -no_silent_override
	test with try_it.pl
	=> dump was extra incdented at caller
	
!Add the possibility to prune self not only children
	why? 
		objects should be able to remove themselves only their parents should be able to do that
		

TreeDumper.pm  view on Meta::CPAN

		eval "use Win32::Console;" ;
		die $@ if $@ ;
		
		$WIN32_CONSOLE= new Win32::Console;
		}
	}
	
use Text::Wrap ;
#use Text::ANSI::Util qw(ta_wrap);
use Class::ISA ;
use Sort::Naturally ;

use constant MD1 => ('MAX_DEPTH' => 1) ;
use constant MD2 => ('MAX_DEPTH' => 2) ;

#-------------------------------------------------------------------------------
# setup values
#-------------------------------------------------------------------------------

our %setup =
	(