• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Model::Roles::DBIxSimple;

use Moose::Role;

sub get_cols {
	my ($self, $table) = @_;
	
	my $dbh = $self->lims_dbix;
	
	my $meta = $self->get_meta($table); # warn Dumper $meta;
	
	my @cols = keys %$meta; # warn Dumper \@cols;
	return \@cols;
}

sub get_meta {
	my ($self, $table) = @_;
	
	my $dbh = $self->lims_dbix;
	
	my $t = $dbh->query("show columns from hmrn.$table")->hashes; # warn Dumper $t;
	
	my %meta = map {
		$_->{field} => $_,
	} @$t; # warn Dumper \%meta;
	
	return \%meta;
}

1;