% This is a cat. It behaves like a generic object.

-module(a_cat).
-behaviour(gen_object).
-export([initialise/1, handle_message/3]).

initialise([Name]) ->
  {Name, "Meow"}.

handle_message(say, [Word], {Name, Word}) ->
  {Word, {Name, Word}};
handle_message(say, _, State) ->
  {"", State}.