Skip to content

Instantly share code, notes, and snippets.

@rymizuki
Forked from karupanerura/yakiniku.pl
Created November 29, 2013 04:22
Show Gist options
  • Save rymizuki/7701548 to your computer and use it in GitHub Desktop.
Save rymizuki/7701548 to your computer and use it in GitHub Desktop.
package karupanerura;
# is me!
package main;
use strict;
use warnings;
use Meat;
use Beef;
use Hormones;
use Grill;
use List::MoreUtils qw/shuffle/;
my @menu = qw/Meat Beef Hormones/;
until (karupanerura->is_full) {
my $namaniku = [suffle(@menu)]->[0]->new;
my $yakiniku = Grill->run(namaniku => $namaniku);
karupanerura->eat($yakiniku);
}
exit('yakiniku');
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment