CTR Mehr Benutzerparameter aus dem POD erlauben und prüfen
[kivitendo-erp.git] / SL / Dev / Shop.pm
1 package SL::Dev::Shop;
2
3 use strict;
4 use base qw(Exporter);
5 use Data::Dumper;
6 our @EXPORT_OK = qw(new_shop new_shop_part new_shop_order);
7 our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
8
9 use SL::DB::Shop;
10
11 sub new_shop {
12   my (%params) = @_;
13
14   my $shop = SL::DB::Shop->new(
15     description => delete $params{description} || 'testshop',
16     %params
17   );
18   return $shop;
19 }
20
21 sub new_shop_part {
22   my (%params) = @_;
23
24   my $part = delete $params{part};
25   my $shop = delete $params{shop};
26
27   my $shop_part = SL::DB::ShopPart->new(
28     part => $part,
29     shop => $shop,
30     %params
31   )->save;
32   return $shop_part;
33 }
34
35 sub new_shop_order {
36   my (%params) = @_;
37
38   my $shop_order = SL::DB::ShopOrder->new(
39     shop => $params{shop},
40     %params
41   );
42   return $shop_order;
43 }
44
45
46 1;
47
48 __END__
49
50 =head1 NAME
51
52 SL::Dev::Shop - create shop objects for testing, with minimal defaults
53
54 =head1 FUNCTIONS
55
56 =head2 C<create_shop %PARAMS>
57
58 Creates a new shop object.
59
60   my $shop = SL::Dev::Shop::create_shop();
61
62 Add a part as a shop part to the shop:
63
64   my $part = SL::Dev::Part::create_part();
65   $shop->add_shop_parts( SL::DB::ShopPart->new(part => $part, shop_description => 'Simply the best part!' ) );
66   $shop->save;
67
68
69 =head1 BUGS
70
71 Nothing here yet.
72
73 =head1 AUTHOR
74
75 G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
76
77 =cut