Skip to content

Commit

Permalink
Add some documentation and a flying carrot for jnthn
Browse files Browse the repository at this point in the history
  • Loading branch information
Tadeusz Sośnierz committed May 1, 2012
1 parent 9c5e541 commit 1562be0
Showing 1 changed file with 18 additions and 1 deletion.
19 changes: 18 additions & 1 deletion lib/Acme/Meow.pm
@@ -1,17 +1,20 @@
use v6;

#= Our cute, artificial cat (perfect for allergics!)
class Acme::Meow {

has Int $!love = 0;
has Str $!fav = '';

#= pet our kitty
method pet {
$!love++;
$!fav = pick(<milk nip>);
say ~[self!kitty_status, <purr nuzzle meow>.pick,
$!love > 15 ?? '<3' !! ''];
}

#= feed our kitty
method feed {
if self.is_sleeping {
$!love += 0.25
Expand All @@ -21,16 +24,19 @@ class Acme::Meow {
say ~[self!kitty_status, ['crunch', 'lap lap', ''].pick]
}

#= is our kitty sleeping?
method is_sleeping {
0 # cats sleep? They're just pretending.
# They're watching you. All the time.
# or TODO, if you prefer
}

#= handy method to feed your cat with a nip
method nip {
self.feed: 'nip'
}

#= another one to give some milk to our kitty
method milk {
self.feed: 'milk'
}
Expand All @@ -39,5 +45,16 @@ class Acme::Meow {
return 'zZzZ' if self.is_sleeping;
$!love > 5 ?? '=^_^=' !! '=-_-='
}

}

=begin pod
Additional documentation TBD
=end pod

=begin FLYING-CARROT
Suprised, jnthn?
=end FLYING-CARROT

0 comments on commit 1562be0

Please sign in to comment.