Help for this page

Select Code to Download


  1. or download this
    my $zip_to = "60446";
my $zip_from = "60187";
...
         "\n";
    }
}
  2. or download this
    $VAR1 = '60446';
$VAR2 = '43214';
...
                 undef,
                 '2.26'
               ], 'Net::UPS::Package' );
  3. or download this
    sub shop_for_rates {
    my $self = shift;
...
    $args->{service}||= "GROUND";
    return [sort{$a->total_charges <=>$b->total_charges} @{$self->requ
+est_rate($from, $to, $packages, $args)}];
}