package MyClass::Items;
use 5.008008;
use strict;
use warnings;

use MyClass::DBI::SubClass;

sub addItem {
   my $self = shift;
   my %params = @_;
   return undef if(! defined($params{name}));
   return undef if(! defined($params{qty}));

   my $record = MyClass::DBI::SubClass->insert(
      {
          id => MyClass::DBI::SubClass->next_val(),
          name => $params{name},
          qty => $params{qty}
      });
   if(!defined($record)) {
      warn "Unable to create new item: ". $params{name};
      return undef;
   };
   return $record;
};

1;
__END__