kentnl

Perl

piss

[ 'xkcd:xkcd_214',              'xkcd_214',              'xkcd 214',              [ 0,   251, 176, ], '00fbb0', 64_432, ],
  [ 'xkcd:pastel_red',            'pastel_red',            'pastel red',            [ 219, 88,  86, ],  'db5856', 14_374_998, ],
  [ 'xkcd:xkcd_215',              'xkcd_215',              'xkcd 215',              [ 219, 88,  86, ],  'db5856', 14_374_998, ],
  [ 'xkcd:piss_yellow',           'piss_yellow',           'piss yellow',           [ 221, 214, 24, ],  'ddd618', 14_538_264, ],
  [ 'xkcd:xkcd_216',              'xkcd_216',              'xkcd 216',              [ 221, 214, 24, ],  'ddd618', 14_538_264, ],
  [ 'xkcd:bright_cyan',           'bright_cyan',           'bright cyan',           [ 65,  253, 254, ], '41fdfe', 4_324_862, ],
  [ 'xkcd:xkcd_217',              'xkcd_217',              'xkcd 217',              [ 65,  253, 254, ], '41fdfe', 4_324_862, ],

Perl

piss

with 'Beam::Emitter';
use List::Util qw( first );

# PS: This example shows exactly how much you need to piss around with EUMM
# just to get some basic stuff done.

has 'static_attribution' => (