$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.

cpanm Data::Conveyor

perl -MCPAN -e shell
install Data::Conveyor