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.
Minimal usage, default values, without saving to database:
- my $customer = SL::Dev::CustomerVendor::create_customer();
+ my $customer = SL::Dev::CustomerVendor::new_customer();
Complex usage, overwriting some defaults, and save to database:
- SL::Dev::CustomerVendor::create_customer(name => 'Test customer',
+ SL::Dev::CustomerVendor::new_customer(name => 'Test customer',
hourly_rate => 50,
taxzone_id => 2,
)->save;
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.
Minimal usage, default values, without saving to database:
- my $vendor = SL::Dev::CustomerVendor::create_vendor();
+ my $vendor = SL::Dev::CustomerVendor::new_vendor();
Complex usage, overwriting some defaults, and save to database:
- SL::Dev::CustomerVendor::create_vendor(name => 'Test vendor',
- taxzone_id => 2,
- notes => "Order for 100$ for free delivery",
- payment_id => 5,
- )->save;
+ SL::Dev::CustomerVendor::new_vendor(name => 'Test vendor',
+ taxzone_id => 2,
+ notes => "Order for 100$ for free delivery",
+ payment_id => 5,
+ )->save;
=head1 BUGS