projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Einkaufsrechnung -> Zahlung buchen: sinnlosen Quark gefixt.
[kivitendo-erp.git]
/
SL
/
MoreCommon.pm
diff --git
a/SL/MoreCommon.pm
b/SL/MoreCommon.pm
index
e09d7c8
..
e93dd17
100644
(file)
--- a/
SL/MoreCommon.pm
+++ b/
SL/MoreCommon.pm
@@
-1,15
+1,17
@@
package SL::MoreCommon;
require Exporter;
package SL::MoreCommon;
require Exporter;
-@ISA = qw(Exporter);
+
our
@ISA = qw(Exporter);
-@EXPORT = qw(save_form restore_form compare_numbers any cross);
-
@EXPORT_OK = qw(ary_union ary_intersect ary_diff
);
+
our
@EXPORT = qw(save_form restore_form compare_numbers any cross);
+
our @EXPORT_OK = qw(ary_union ary_intersect ary_diff listify
);
use YAML;
use SL::AM;
use YAML;
use SL::AM;
+use strict;
+
sub save_form {
$main::lxdebug->enter_sub();
sub save_form {
$main::lxdebug->enter_sub();
@@
-159,4
+161,9
@@
sub ary_diff {
return grep { !$in_b{$_} } @$a;
}
return grep { !$in_b{$_} } @$a;
}
+sub listify {
+ my @ary = scalar @_ > 1 ? @_ : ref $_[0] eq 'ARRAY' ? @{ $_[0] } : (@_);
+ return wantarray ? @ary : scalar @ary;
+}
+
1;
1;