package AppSys::DBI;
use base 'Class::DBI::mysql';

sub hashy {
	my $self = shift;
	return {
		map {
			my $g = $self->get($_);
			$g = hashy($g) if ref $g;
			( $_ => $g );
		}
		$self->columns
	};
}