view release on metacpan or  search on metacpan

scripts/templates/master_categories.pl  view on Meta::CPAN

		{
		'_DEFINITION' => 'System rollout documentation'
		},
	'Training' => 
		{
		'_DEFINITION' => 'System training and documentation'
		},
	},
};

my ($package) = caller() ;

unless(defined $package)
	{
	my ($missing_definitions, $number_of_categories) = (0, 0) ;

	my $display_filter = sub
		{
		my $tree = shift ;

		if('HASH' eq ref $tree )

scripts/templates/master_template.pl  view on Meta::CPAN

	RELATED_REQUIREMENTS =>{TYPE =>$ARRAY, DEFAULT => [], OPTIONAL => 1},
	SUB_REQUIREMENTS => {TYPE =>$ARRAY, DEFAULT => []},

	REVIEWED => {TYPE =>$SCALAR, DEFAULT => 0},
	IMPLEMENTATION_STATE => {TYPE =>$SCALAR, DEFAULT => undef},
	IMPLEMENTATION_PRIORITY => {TYPE =>$SCALAR, DEFAULT => undef},
	) ;
	
tie my %data, Tie::IxHash =>	(REQUIREMENT => \%requirement, USE_CASE => \%use_case) ;

my ($package) = caller() ;

unless(defined $package)
	{
	use Data::TreeDumper  ;
	use Data::TreeDumper::Utils qw ( no_sort_filter ) ;
	
	print DumpTree \%data, 'Templates', DISPLAY_ADDRESS => 0, USE_ASCII => 1 , NO_NO_ELEMENTS => 1, FILTER => \&no_sort_filter ;

	}