Select Code to Download

sub padded {
  my ($text, $arg_ref) = @_;  
...
  
  return $filler x $left . $text . $filler x $right; 
}

sub unpack_named_first {
  my ($pos1,  $pos2 ,%arg) = @_;        # unpack 
...
 
  # ...etc
}

sub unpack_named_later {
  my ($pos1 ,$pos2 ,%arg) = @_;        
...
  
  # ...etc
}

sub unpack_named_on_the_fly {
  my ($pos1 ,$pos2 ,%arg) = @_;        
...
 
  # ...etc
}

  $pos1     //  die_miss();
  $pos2     //  warn_miss();