RecordItem.pm

   1 package SL::DB::Helper::RecordItem;
   2
   3 use strict;
   4 use parent qw(Exporter);
   5
   6 our @EXPORT = qw(base_sellprice unit_multiplier);
   7
   8 sub base_sellprice {
   9   $_[0]->sellprice / $_[0]->unit_multiplier;
  10 }
  11
  12 sub unit_multiplier {
  13   $_[0]->unit_obj->convert_to(1, $_[0]->part->unit_obj)
  14 }
  15
  16
  17 1;