Select Code to Download

    $ perl -wMstrict -MData::Dump -e 'my %h; map{$_} $h{X},"$h{Y}"; dd
+\%h'
    Use of uninitialized value $h{"Y"} in string at -e line 1.
    { X => undef }

        $wi{OrderUniqueId} = join " ", grep { $_ ne "" } map { unquote
+_text($_) }
                ($ty eq "need" ? "Zamów" : "Posia"), $$it{name}, $$it{
+para}{Termin}, $$it{para}{Ile}, seq_num(6);

 
$wi{OrderUniqueId} = join " ", grep { $_ ne "" } map { unquote_text($_
+) }
                ($ty eq "need" ? "Zamów" : "Posia"), $$it{name}, $$it{
+para}{Termin} // "", $$it{para}{Ile} // "", seq_num(6);