#!/usr/bin/env pluvo

% 046-case.pvo - Exclamations Test
Authors: Joe Geldart, Sean B. Palmer
Cf. http://paste.lisp.org/display/21937

Dog = (name)
   @exclaim hasTail?
      say "Do I have a tail?"
      return "Yes"

   @exclaim barkUsing: bark withName: nom
      say "$nom says: "
      say "$bark! $bark! I am a dog."

   @exclaim barkAt: obj
      say "$name barks at $obj"

main = (argv)
   rover = Dog("Rover")
   @ask rover barkUsing: "WOOF" withName: "Rovina"
   @ask rover barkAt: "Mr. Tiddles"
   say {@ask rover hasTail?}

script main