http://www.perlmonks.org?node_id=1043443


in reply to range comparison in given

given( $x ){
  when ([2..5]) {
    ...;
  }
  when ([6..10]) {
    ...;
  }
  default {
    ...;
  }
}

[download]

Bear in mind that as of Perl 5.18, given/when has been marked experimental (and issues warnings) because it may undergo major changes in a future version of Perl.

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

In Section Seekers of Perl Wisdom