Select Code to Download

sub _set {
    my $self = shift;
    my ($key, $value);
    while (($key, $value) = splice @_, 0, 2) { $self->{$key} = $value 
+}
}

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub _set {
...
 dd $hr;
"
bless({ a => 1, b => 2, c => 3, "y" => 25, z => 26 }, "main")