Help for this page

Select Code to Download


  1. or download this
    tsvars(
   a => my $a = 'A',
...
   a => my $a2,
   b => my $b2 = 'B2',
);
  2. or download this
    my ($ident, $value) = @_[0,1];
tie( $_[1], 'MyTest::Scalar', $ident );
$_[1] = $value if defined($value);
splice(@_, 0, 2);
  3. or download this
    use Data::Alias qw( alias );

...
alias $_[1] = $VALUES{ $ident );
$_[1] = $value if defined($value);
splice(@_, 0, 2);