package User;
use Class::DBI::AsForm;
use Class::DBI::Iterator;
use base 'Class::DBI::mysql';

use strict;
use warnings;

__PACKAGE__->set_db('Main', 'DBI:mysql:appsys', 'root', '');
__PACKAGE__->set_up_table("ap_uprofile");

1;

##</code><code>##

	my $self = shift;
	my $q = $self->query();
	my $obj = User->search_like( 'upfirstname' => 'john%' );
	print STDERR Dumper( $obj );
	my @cols = $obj->columns;
	print STDERR Dumper ( @cols );