#!/usr/bin/perl -w
#class file.
package Food;
use strict;

sub new 
{
   my $meal = { beverage => "Pepsi",
                entree => "soup",
                dessert => "ice cream",
              };

   bless( $meal );
   return $meal;
}

sub dessert
{
   my $self = shift();

   $self->{ dessert } = shift() if ( @_ );
   
   return $self->{ dessert };
}

sub entree
{
   my $self = shift();
   
   $self->{ entree } = shift() if ( @_ );
   
   return $self->{ entree };
}

sub beverage
{
   my $self = shift();
   
   $self->{ beverage } = shift() if ( @_ );
   
   return $self->{ beverage };
}

sub setMeal
{
   if ( @_ == 4 )
   {
      my $self = shift();
      $self->dessert( $_[ 0 ] );
      $self->entree( $_[ 1 ] );
      $self->beverage( $_[ 2 ] );
   }
   
   else
   {
      print( "Method setMeal requires additional args.\n" );
   }
}

sub display
{
   my $self = shift();
   print( $self->dessert );
   print( ", " );
   print( $self->entree );
   print( ", and " );
   print( $self->beverage );
}

1;
[download]

#!/usr/bin/perl -w

use Food;
use strict;
my $meal = new Food;

$meal->setMeal( "iced tea", "salad", "cheesecake" );
print "I would like ";
$meal->display();
print " please.";
print( "\n" );
[download]

Edit kudra, 2002-08-05 Added a READMORE tag