sub PUSH {
my(@array, @new_items) = @_;
push(@array, map { uc } @new_items);
}
my @target = ('RED', 'GREEN');
PUSH(@target, 'blue');
####
sub PUSH {
my($array, @new_items) = @_;
push(@$array, map { uc } @new_items);
}
my @target = ('RED', 'GREEN');
PUSH(\@target, 'blue');
##
##
sub PUSH (\@@) {
my($array, @new_items) = @_;
push(@$array, map { uc } @new_items);
}
my @target = ('RED', 'GREEN');
PUSH @target, 'blue';
##
##
sub border_style ($$$) {
##
##
sub border_style {
my($width, $style, $colour) = @_;
##
##
sub border ($;$$) {
my($width, $style, $colour) = @_;
$style = 'solid' unless defined $style;
$colour = 'black' unless defined $colour;
return "border: $width $style $colour;";
}
##
##
print border('1px'), "\n";
##
##
my @args;
push @args, $selected ? '5px' : '1px';
push @args, 'dashed';
push @args, 'red' if $selected;
print border(@args), "\n";
##
##
"border: 5px dashed red;"
##
##
"border: 3 solid black;"