use Perl

• "via some slightly insane perlguts magic" (Score:1)

  by Aristotle (5147)

  use Devel::BeginLift qw( init_var );
  
  sub init_var(\[$%@];@) {
      my $var = shift;
      if    ( 'ARRAY' eq ref $var ) { @$var = @_ }
      elsif ( 'HASH'  eq ref $var ) { %$var = @_ }
      else                          { $$var = $_[0] }
      return;
  }
  
  init_var my @foo => qw/ bar baz /;
  
  BEGIN { print "@foo\n" }
  
  =begin output
  
  bar baz
  • Re:"via some slightly insane perlguts magic" (Score:2)

    by Ovid (2709) on 2008.04.23 2:36 (#62360) Homepage Journal

    Beautiful! Mind if I clean this up and post it to the CPAN? (Or you can since you posted the code. Seems unfair to steal it from you :)

    Reply to This

    Parent

    • Re: (Score:1)

      by Aristotle (5147)

      I was going to, but it’s obviously not going to happen, so if you want to go ahead, then do.
      • Re: (Score:2)

        by Ovid (2709)

        Heh. I'm heading on holiday for over a week. I doubt I'm going to get around to it, either :)