Help for this page

Select Code to Download


  1. or download this
    sub excise_arg {
      my $args = shift;
      my $arg_name = shift;
    ...
        return delete $args{$arg_name};
      }
    [...]
    
  2. or download this
    if (exists $args->{$arg_name}) {
        return delete $args->{$arg_name};
      }