$help
EOHELP }
sub get_example_help_for_method { my ($self, $method) = @_; my $example_pod = ''; my $example_count = 0; for my $example ($self->svc->get_examples_for_method($method)) { $example_count++; $example_pod .= "=item $method"; while (my ($name, $value) = each %$example) { $example_pod .= " --$name"; $example_pod .= " $value" if defined $value; } $example_pod .= "\n\n"; }
if (length $example_pod) {
$example_pod = "=over 4\n\n$example_pod\n\n=back\n\n";
}
if ($example_count == 1) {
$example_pod = "Example:\n\n$example_pod";
} elsif ($example_count > 1) {
$example_pod = "Examples:\n\n$example_pod";
}
$example_pod;
}sub pod_to_text { my ($self, $pod) = @_;
open my $pod_fh, '<', \$pod or
die "can't open filehandle to scalar \$pod";
my $text = '';
open my $text_fh, '>', \$text or
die "can't open filehandle to scalar \$text";
my $parser = Pod::Text->new;
$parser->parse_from_filehandle($pod_fh, $text_fh);
close $pod_fh or die "can't close filehandle to scalar \$pod";
close $text_fh or die "can't close filehandle to scalar \$text";
$text;
}sub summary_for_service_method { my ($self, $method) = @_; $self->svc->get_summary_for_method($method); }
# don't call this just "help_for_service_method", or Term::Shell's # find_handler() will find it and assume that there's a command # "for_service_method".
sub get_help_for_service_method { my ($self, $method) = @_; my $description = $self->svc->get_description_for_method($method); my $param_help = $self->get_param_help_for_method($method); my $example_pod = $self->get_example_help_for_method($method); my $pod = <<EOPOD; =pod
$method
$description
$param_help
$example_pod
NAME
Data::Conveyor - stage-based conveyor-belt-like ticket handling system
SYNOPSIS
None yet (see below).
DESCRIPTION
None yet. This is an early release; fully functional, but undocumented. The next release will have more documentation.
TAGS
If you talk about this module in blogs, on del.icio.us or anywhere else, please use the dataconveyor tag.
BUGS AND LIMITATIONS
No bugs have been reported.
Please report any bugs or feature requests to bug-data-conveyor@rt.cpan.org, or through the web interface at http://rt.cpan.org.
INSTALLATION
See perlmodinstall for information and options on installing Perl modules.
AVAILABILITY
The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit <http://www.perl.com/CPAN/> to find a CPAN site near you. Or see <http://www.perl.com/CPAN/authors/id/M/MA/MARCEL/>.
AUTHORS
Marcel Grünauer, <marcel@cpan.org>
Florian Helmberger <fh@univie.ac.at>
Achim Adam <ac@univie.ac.at>
Mark Hofstetter <mh@univie.ac.at>
Heinz Ekker <ek@univie.ac.at>
COPYRIGHT AND LICENSE
Copyright 2007 by Marcel Grünauer
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.