###############################################################################
   # $RCSfile: KumquatUtil.pm,v $
   # $Revision: 1.54 $
   # $Date: 2001/02/07 22:07:58 $
   #
   # Module: KumquatUtil
   #
   # Miscellaneous utilities for dealing with kumquats.  In most cases, these
   # extract juice and pulp, discard seeds and skin, and so on.
   #
   # Usage: It is assumed that the main program which uses this package
   # has performed initial cleaning of the fruit in question.
   #
 
###############################################################################

   #
   # This package definition
   #
   package      KumquatUtil;
   require      Exporter;
   @ISA       = qw(Exporter);
   @EXPORT    = qw(jam jelly pie turnover);
   @EXPORT_OK = ();

   #
   # get modules
   #
   use FruitConfig;   ## global configuration

 
###############################################################################
   # Module-level variables
 
###############################################################################

   =head1 NAME

   KumquatUtil.pm - Functions for dealing with kumquats

   =head1 USAGE

   use KumquatUtil;

   =head1 IMPORTS

   	AFruitConfig
   	APieUtil

   =head1 DESCRIPTION

   Module containing functions useful for interacting with kumquats.  All of
   the functions assume that initial cleaning of the fruit in question has
   been performed, using the cleaner() method from the FruitConfig module.

   =head1 BUGS

   Certain items (e.g., $fruit, $sugar, and $rJam) must be guarded from access
   by ants, flies, etc.

   =head1 AUTHORS

   Smucker, J.M.

   =head1 SEE ALSO

   	Stove.pm

   =head1 LIST OF SUBROUTINES

    jam
    jelly
    pie
    turnover

   =head1 SUBROUTINES

   =over 4

   =cut

 
###############################################################################
   # Convert kumquats into jam.
   #
   # INPUTS
   # $sugar     sweetening agent
   # $pectin    stiffening agent
   #
   # RETURNS
   # $rJam      Reference to finished jam
 
###############################################################################

   =item jam

   Create jam from raw material

   Usage:

    Jam($sugar, $pectin);

   Parameters:

    $sugar - sweetening agent
    $pectin - stiffening agent

   Returns:

    $rJam - Reference to finished jam

   =cut

   sub Jam {
       local( $sugar, $pectin ) = @_;

   }

   ### ... more ...

   1;