package PODExample;

=head1 NAME

PODExample (Perl module)

=head1 SYNOPSIS

This is an example Perl module containing POD.

=head1 DESCRIPTION

This Perl module is a collection of subroutines designed to work with questions and their answers. It contains the following subroutines:

=cut

######################

=head2 answer($answer,$question)

This subroutine determines the answer to the question.
It takes in two arguments, the first is the answer, the
second is the question. It outputs the answer and does not
return anything.

=cut

sub answer {
    my ($a, $q) = @_;
    print "$a is the answer\n";
} # end answer

######################

=head2 question($answer,$question)

This subroutine deduces the question from the answer.
It takes in two arguments:

=over 4

=item 1
the answer

=item 2
the question

=back

The question is output and the answer is returned.

=cut

sub question {
    my ($a, $q) = @_;
    print "$q is the question\n";
    return $a;
} # end question

1;