view release on metacpan or  search on metacpan

lib/App/Chained.pm  view on Meta::CPAN

	else
		{
		$self->{INTERACTION}{INFO}('No sub applications registred') ;
		}
	}

return ;
}

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

sub display_faq
{

=head2 [P]display_faq()

Will display an answer to a a faq question using  B<$self->{faq}>, that you set during construction, or will inform you if you haven't set the B<faq> field.

I<Arguments> - None - takes the FAQ query from the I<--faq> option.

I<Returns> - Nothing

I<Exceptions> - None

=cut

my ($self, @argument) = @_ ;

my $faq = $self->{faq} ;

my $faq_option = ${$self->{getopt_definitions}{'apropos=s'}} ;

if(defined $faq)
	{
	if('CODE' eq ref $faq)
		{
		$faq->($self, $faq_option) ;
		}
	else
		{
		if($SCALAR eq ref $faq)
			{
			$faq .= "\n" unless $faq =~ /\n$/sxm ;
			
			$self->{INTERACTION}{INFO}($faq) ;
			}
		}
	}
else
	{
	my $app = ref($self)  ;
	$self->{INTERACTION}{WARN}("No FAQ. Please define one in '$app'.\n\n") ;
	}

return ;}

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

1 ;

=head1 BUGS AND LIMITATIONS

None so far.

=head1 AUTHOR

	Nadim ibn hamouda el Khemir
	CPAN ID: NKH
	mailto: nadim@cpan.org

=head1 COPYRIGHT AND LICENSE

Copyright Nadim Khemir 2010.

This program is free software; you can redistribute it and/or
modify it under the terms of either:

=over 4

=item * the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any
later version, or

=item * the Artistic License version 2.0.

=back

=head1 SUPPORT

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

    perldoc App::Chained

You can also look for information at:

=over 4

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/App-Chained>

=item * RT: CPAN's request tracker

Please report any bugs or feature requests to  L <bug-app-chained@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/App-Chained>

=back

=head1 SEE ALSO


=cut