X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ec1dc3e8dd611bf973ba7306d6a09d65a7e2bfce..0d5564ee4eaf6af6cbcc0c59b08e9ed16c828b49:/SL/Dev/CustomerVendor.pm

diff --git a/SL/Dev/CustomerVendor.pm b/SL/Dev/CustomerVendor.pm
index 3a8fa8600..ef543709f 100644
--- a/SL/Dev/CustomerVendor.pm
+++ b/SL/Dev/CustomerVendor.pm
@@ -1,7 +1,8 @@
 package SL::Dev::CustomerVendor;
 
+use strict;
 use base qw(Exporter);
-@EXPORT = qw(create_customer);
+our @EXPORT = qw(create_customer);
 
 use SL::DB::TaxZone;
 use SL::DB::Currency;
@@ -51,6 +52,7 @@ Minimal usage, default values, without saving to database:
   my $customer = SL::Dev::CustomerVendor::create_customer();
 
 Complex usage, overwriting some defaults, and save to database:
+
   SL::Dev::CustomerVendor::create_customer(name        => 'Test customer',
                                            hourly_rate => 50,
                                            taxzone_id  => 2,
@@ -66,4 +68,3 @@ Nothing here yet.
 G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
 
 =cut
-1;