package Froschpopo::Model::Database;

use base qw/DBIx::Class::Schema/;

__PACKAGE__->load_classes(qw/
    User
/);

1;

package Froschpopo::Model::Database::User;

use strict;
use warnings;
use base qw(DBIx::Class);

__PACKAGE__->load_components( qw(PK::Auto Core) );
__PACKAGE__->table( 'user' );

__PACKAGE__->add_columns( qw(
    user_id
    vorname
    nachname
));
__PACKAGE__->set_primary_key( 'user_id' );


1;

#!/usr/bin/perl

use strict;
use warnings;
use Froschpopo::Model::Database;

my $schema = Froschpopo::Model::Database->connect($alles_wie_bei_dbi);
my ($user) = $schema->resultset( 'User' )->search({
    user_id => $user_id,
});

print $user->vorname," ", $user->nachname;