Size: a a a
SZ
AP
AP
SZ
VO
$s3->list_bucket({ bucket => $bucket, prefix => $dir, marker => $marker }); что бы marker => $marker присутсвовало только если $marker определен?AP
AP
$s3->list_bucket({ bucket => $bucket, prefix => $dir, ($marker? (marker => $marker): ()) });SR
$s3->list_bucket({ bucket => $bucket, prefix => $dir, ($marker? (marker => $marker): ()) });AP
sub ifkey { return () if !$_[1]; return ($_[0]=>$_[1]) }
и звать как $s3->({ifkey(marker => $marker)})AP
AP
(* 2 (+ 1 2) (- 4 (/ 2 1)))b
$s3->list_bucket({ bucket => $bucket, prefix => $dir, ($marker? (marker => $marker): ()) });my @optional;
push @optional, {k2 => 'v2'} if $some_condition;
$obj->method({req1 => 'v1', @optional});
SZ
(* 2 (+ 1 2) (- 4 (/ 2 1)))AP
VO
my @optional;
push @optional, {k2 => 'v2'} if $some_condition;
$obj->method({req1 => 'v1', @optional});
W
SZ
W
SZ