Help for this page

Select Code to Download

Select or download this

package User;
use Class::DBI::AsForm;
...
__PACKAGE__->set_up_table("ap_uprofile");

1;

Select or download this

    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 );