view release on metacpan or  search on metacpan

lib/Debug/Mixin.pm  view on Meta::CPAN

		{
		/^[0-9]+$/smx and do
			{
			if($choice < @subs)
				{
				$subs[$choice]{SUB}->() ;
				}
			#else
				# invalid input re-query user
				
			last ;
			} ;
			
		/^d ([0-9]+)$/smx and do
			{
			my $sub_index = $1 ; ## no critic
			
			if($sub_index  < @subs)
				{
				my $sub =  $subs[$sub_index] ;
				
				my $sub_header = "$sub->{NAME}:" ;
				my $sub_separator = q{-} x length($sub_header) ;
				
				Output("$sub_header\n$sub_separator\n$sub->{HELP}\n\n") ;
				}
				
			last ;
			} ;
			
		}
	}
while($choice ne 'c') ;

return(1) ;
}

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

sub Output ## no critic (Subroutines::RequireArgUnpacking)
{

=head2 Output

Prints the passed arguments 

=cut

print(@_) or die "Can't output!\n" ;

return ;
}

#-------------------------------------------------------------------------------
1 ;

=head1 TO DO

More test, testing the module through the perl debugger's automation.

=head1 BUGS AND LIMITATIONS

None so far.

=head1 AUTHOR

	Khemir Nadim ibn Hamouda
	CPAN ID: NKH
	mailto:nadim@khemir.net

=head1 LICENSE AND COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Debug::Mixin

You can also look for information at:

=over 4

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Debug-Mixin>

=item * RT: CPAN's request tracker

Please report any bugs or feature requests to  L <bug-my $storage_ref = debug-mixin@rt.cpan.org>.

We will be notified, and then you'll automatically be notified of progress on
your bug as we make changes.

=item * Search CPAN

L<http://search.cpan.org/dist/Debug-Mixin>

=back

=head1 SEE ALSO

L<Filter::Uncomment>

=cut