wschroed

  '(you see exits leading (exit east) , (exit west) , and (exit north))

  '(you see exits leading (series (exit east) (exit west) (exit north)))

  You see exits leading [east], [west], and [north].

    my $arr1 = [1, (), 2, (3, 4, (5, 6)), 7];   # $arr1 is [1, 2, 3, 4, 5, 6, 7]
    my $arr2 = [1, [], 2, [3, 4, [5, 6]], 7];   # $arr2 is [1, [], 2, [3, 4, [5, 6]], 7]

    my $arr3 = [1 => 2 => 3, 4 => 5];  # $arr3 is [1, 2, 3, 4, 5]

    my $hash1 = {x => 1, y => 2};  # $hash1->{x} is 1

    my $hash2 = {'x', 1, 'y', 2};  # same as $hash1

    my @pairs = ('x', 1, 'y', 2);
    my $hash3 = {@pairs};  # same as hash1

    my %answer = map { $_ => "foo" } (1..100);

    my @result = (@array1, 'x', @array2);

    my $doubled = [@$ref, @$ref];

    my %params = (
        x => $self->x,
        $self->y ? (y => $self->y) : (),
        z => $self->z,
    );
    MyClass->new(%params);  # this actually converts the hashmap into list context!

    use Moose;
    has age => (isa => 'Int', required => 1);

    use Test::More;
    subtest 'Math is still valid' => sub {
        is(1, 1 => "1 is still equal to itself");
        is(2, 2 => "2 is still equal to itself");
    };