Revision 271e8829
Von Sven Schöling vor fast 10 Jahren hinzugefügt
scripts/console | ||
---|---|---|
84 | 84 |
use SL::LXDebug; |
85 | 85 |
use Data::Dumper; |
86 | 86 |
use List::Util qw(max); |
87 |
use Time::HiRes; |
|
87 | 88 |
|
88 | 89 |
# this is a cleaned up version of am.pl |
89 | 90 |
# it lacks redirection, some html setup and most of the authentication process. |
... | ... | |
153 | 154 |
|
154 | 155 |
Spezielle Kommandos: |
155 | 156 |
|
156 |
help - zeigt diese Hilfe an. |
|
157 |
lxinit 'login' - lädt das kivitendo-Environment für den User 'login'. |
|
158 |
reload - lädt modifizierte Module neu. |
|
159 |
pp DATA - zeigt die Datenstruktur mit Data::Dumper an. |
|
160 |
quit - beendet die Konsole |
|
157 |
help - zeigt diese Hilfe an. |
|
158 |
lxinit 'login' - lädt das kivitendo-Environment für den User 'login'. |
|
159 |
reload - lädt modifizierte Module neu. |
|
160 |
pp DATA - zeigt die Datenstruktur mit Data::Dumper an. |
|
161 |
clock { CODE } - zeigt die gebrauchte Zeit für die Ausführung von CODE an |
|
162 |
quit - beendet die Konsole |
|
161 | 163 |
|
162 |
part - shortcuts auf die jeweilige SL::DB::{...}::find_by
|
|
164 |
part - shortcuts auf die jeweilige SL::DB::{...}::find_by |
|
163 | 165 |
customer, vendor, |
164 | 166 |
order, invoice, |
165 | 167 |
purchase_invoice, |
... | ... | |
248 | 250 |
SL::DB::Manager::Chart->find_by(@_) |
249 | 251 |
} |
250 | 252 |
|
253 |
sub clock (&) { |
|
254 |
my $s = [Time::HiRes::gettimeofday()]; |
|
255 |
$_[0]->(); |
|
256 |
Time::HiRes::tv_interval($s); |
|
257 |
} |
|
258 |
|
|
259 |
|
|
251 | 260 |
1; |
252 | 261 |
|
253 | 262 |
__END__ |
Auch abrufbar als: Unified diff
console: clock Funktion um kleionere Schnipsel timen zu können