Re: How Constant pragma works with multi constants


laziness, impatience, and hubris
	PerlMonks

Re: How Constant pragma works with multi constants

by 7stud (Deacon)

on Feb 06, 2013 at 17:30 UTC ( [id://1017478]=note: print w/replies, xml )

Need Help??

in reply to How Constant pragma works with multi constants

use strict;
use warnings;
use 5.012;

sub show {
    say shift;
}

show(10);
show 5;

--output:--
10
5
[download]

Continuing on:

sub my_use {
    my $href = shift;

    for my $key (keys %$href) {
        say $href->{$key};
    }
}

my $href = {
    STRAIGHT_LINE_ID => 1,
    PRORATED_ID      => 2,
    CBP_CUSTOM_ID    => 3
};

my_use($href);
my_use $href;

--output:--
3
2
1
3
2
1
[download]

And...for the grand finale:


my_use({STRAIGHT_LINE_ID => 1, PRORATED_ID => 2, CBP_CUSTOM_ID => 3});
my_use {STRAIGHT_LINE_ID => 1, PRORATED_ID => 2, CBP_CUSTOM_ID => 3};

my_use {
    STRAIGHT_LINE_ID => 1,
    PRORATED_ID      => 2,
    CBP_CUSTOM_ID    => 3
};


--output:--
3
2
1
3
2
1
3
2
1
[download]

A variable and the thing it refers to can be used interchangeably in your code. You can also write hashes and arrays across multiple lines.