use strict;
use base qw(Exporter);
-our @EXPORT = qw(create_customer);
+our @EXPORT_OK = qw(new_customer new_vendor);
+our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
use SL::DB::TaxZone;
use SL::DB::Currency;
use SL::DB::Customer;
-sub create_customer {
+sub new_customer {
my (%params) = @_;
my $taxzone = _check_taxzone(delete $params{taxzone_id});
return $customer;
}
-sub create_vendor {
+sub new_vendor {
my (%params) = @_;
my $taxzone = _check_taxzone(delete $params{taxzone_id});
=head1 FUNCTIONS
-=head2 C<create_customer %PARAMS>
+=head2 C<new_customer %PARAMS>
Creates a new customer.
If neither taxzone_id or currency_id (both are NOT NULL) are passed as params
then default values are used.
-=head2 C<create_vendor %PARAMS>
+=head2 C<new_vendor %PARAMS>
Creates a new vendor.
SL::Dev::CustomerVendor::create_vendor(name => 'Test vendor',
taxzone_id => 2,
notes => "Order for 100$ for free delivery",
+ payment_id => 5,
)->save;
=head1 BUGS