diff options
Diffstat (limited to 'gen_object/a_cat.erl')
| -rw-r--r-- | gen_object/a_cat.erl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gen_object/a_cat.erl b/gen_object/a_cat.erl new file mode 100644 index 0000000..3e3b00f --- /dev/null +++ b/gen_object/a_cat.erl @@ -0,0 +1,13 @@ +% 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}. |