cool ;)
Wieder was dazugelernt, danke. Anhand der Zeit sehe ich, der Key wird genutzt.
PS/Edit: Wo ich grad dranbin, ein Modul neu zu überarbeiten:
Dem Konstruktor könnte ich ein Attribut mitgeben
profiling => 1 und eine extra Methode für den Dump der profiles per Autoload vorhalten...
E2: Fertig! Leistet gute Dienste beim Entwickeln. Gesamtzeit wird auch berechnet ;)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'show_profiles' => q(
my $self = shift;
if(not defined $self->{PROF}){
carp "profiling not set";
return;
}
my $q = q(SHOW PROFILES);
my $ar = $self->{DBH}->selectall_arrayref($q);
my $sum = 0;
print "\n";
foreach my $e(@$ar){
$sum += $e->[1];
print join("\t", @$e), "\n";
}
print "\nSummary time: $sum seconds\n";
),
profiling => 1 wird vorher dem Konstruktor als Attribut übergeben.
Last edited: 2012-03-18 19:37:09 +0100 (CET)