'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";
	),