Re^4: What I am missing here

With List::MapMulti this can be reduced to:

sub deck_maker {
    mapm { join " of ", @_ }
      [ 2..10, qw(J Q K A) ],
      [ qw(spades hearts diamonds clubs) ]
}
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^4: What I am missing here Download Code