package Froschpopo::Model::Database;

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

__PACKAGE__->load_classes(qw/
    User
    Fotos
/);

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

__PACKAGE__->has_many( Fotos => 'Froschpopo::Model:Database::Foto',
                      { 'foreign.user_id' => 'self.user_id' } );

1;

package Froschpopo::Model::Database::Foto;

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

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

__PACKAGE__->add_columns( qw(
    foto_id
    user_id
    path
));
__PACKAGE__->set_primary_key( 'foto_id' );

__PACKAGE__->has_many( User => 'Froschpopo::Model:Database::User',
                      { 'foreign.user_id' => 'self.user_id' } );

1;

#!/usr/bin/perl

use strict;
use warnings;

use CGI;

use Froschpopo::Model::Database;

my $cgi = CGI->new;

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

if( $user ){
    print $user->vorname," ", $user->nachname;
    
    if ($cgi->param('nur_user_mit_bild')) {
        my @fotos = $user->Fotos;
        for my $foto ( @fotos ){
            print "Foto: ", $foto->path,"\n";
        }
    }
}
else{
    print "Kein User gefunden";
}