Re^2: Concatnate long statement


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re^2: Concatnate long statement

by Fletch (Bishop)

on Jul 04, 2007 at 00:05 UTC ( [id://624807]=note: print w/replies, xml )

Need Help??

in reply to Re: Concatnate long statement
in thread Concatnate long statement

And if not refactor, at least switch to using pseudo-named arguments by expecting key/value pairs and appending those to defaults.

sub womble {
  my @defaults = (
    fleem       => 12.3,
    alarm_low   => 99,
    alarm_hi    => 'naked ernest borgnine',
    alarm_hello => 'nice to see you',
    alarm_good_evening => STOP_STEALING_PYTHON_GAGS,
    quux        => 19.95,
  );

  my %args = ( @defaults, @_ );

  if( $args{ quux } > 15 ) { enable_flux_capacitor(); }

  ## ... rest of womblification routine
}

womble( quux => 1.21 * GIGAWATS_PER_MICROFLEEM,
        alarm_low => 42, );
[download]

Comment on Re^2: Concatnate long statement Download Code

Replies are listed 'Best First'.

Re^3: Concatnate long statement
by fenLisesi (Priest) on Jul 04, 2007 at 07:27 UTC

use strict;
use warnings;
use Data::Dumper;

my %WOMBLE_DEFAULTS
    = (
       fleem       => 12.3,
       alarm_low   => 99,
       alarm_hi    => 'naked ernest borgnine',
       alarm_hello => 'nice to see you',
       alarm_good_evening => 'STOP_STEALING_PYTHON_GAGS',
       quux        => 19.95,
       );
my $DEBUG = 1;

womble({
    quux => 1.21,
    alarm_low => 42,
});

exit( 0 );

sub womble {
    my ($args_href) = @_;

    %$args_href = (%WOMBLE_DEFAULTS, %$args_href);
    warn Dumper( $args_href ) if $DEBUG;

    ## ... rest of womblification routine
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://624807]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having a coffee break in the Monastery: (2)

As of 2024-04-19 19:48 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found