projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Order-Controller: Angebotsgültigkeitsintervall beachten
[kivitendo-erp.git]
/
SL
/
Dev
/
CustomerVendor.pm
diff --git
a/SL/Dev/CustomerVendor.pm
b/SL/Dev/CustomerVendor.pm
index
e401edc
..
6b2e618
100644
(file)
--- a/
SL/Dev/CustomerVendor.pm
+++ b/
SL/Dev/CustomerVendor.pm
@@
-2,13
+2,14
@@
package SL::Dev::CustomerVendor;
use strict;
use base qw(Exporter);
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;
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});
my (%params) = @_;
my $taxzone = _check_taxzone(delete $params{taxzone_id});
@@
-22,7
+23,7
@@
sub create_customer {
return $customer;
}
return $customer;
}
-sub
create
_vendor {
+sub
new
_vendor {
my (%params) = @_;
my $taxzone = _check_taxzone(delete $params{taxzone_id});
my (%params) = @_;
my $taxzone = _check_taxzone(delete $params{taxzone_id});
@@
-69,17
+70,17
@@
SL::Dev::CustomerVendor - create customer and vendor objects for testing, with m
=head1 FUNCTIONS
=head1 FUNCTIONS
-=head2 C<
create
_customer %PARAMS>
+=head2 C<
new
_customer %PARAMS>
Creates a new customer.
Minimal usage, default values, without saving to database:
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:
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;
hourly_rate => 50,
taxzone_id => 2,
)->save;
@@
-87,7
+88,7
@@
Complex usage, overwriting some defaults, and save to database:
If neither taxzone_id or currency_id (both are NOT NULL) are passed as params
then default values are used.
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.
Creates a new vendor.