package Wholesale::Addon;

=begin WSDL
  _ATTR productid    $int      doc for attr.
  _ATTR name         $string   doc for attr.
  _ATTR description  $string   doc for attr.
  _ATTR price        $int      doc for attr.
  _ATTR windowIncr   $int      doc for attr.
  _ATTR computerIncr $int      doc for attr.
  _ATTR deferred     $boolean  doc for attr.
  _ATTR addonid      $int      doc for attr.
  _ATTR added        $dateTime doc for attr.
  _ATTR username     $string   doc for attr.
=end WSDL
=cut
sub new
{
  my $class = shift;
  my ($productid, $name, $description, $price, $windowIncr, 
      $computerIncr, $deferred, $addonid, $added, $username)  = @_;
  bless {
    productid    => $productid,
    name         => $name,
    description  => $description,
    price        => $price,
    windowIncr   => $windowIncr,
    computerIncr => $computerIncr,
    deferred     => $deferred,
    addonid      => $addonid,
    added        => $added,
    username     => $username
  }, $class;
}

#... methods omitted for brevity.

1;