root/websites/mobilecat/trunk/lib/MobileCat/Schema/Entries.pm

package MobileCat::Schema::Entries;
use strict;

__PACKAGE__->utf8_columns(qw( body ));
__PACKAGE__->random_string_columns('id', { length => 10 });

__PACKAGE__->might_have('user' => 'MobileCat::Schema::Users',
    { 'foreign.id' => 'self.user_id' },
    { cascade_delete => 0 }
);

sub usernickname {
    my ($self, $cond) = @_;
    my $user = $self->user;
    if ($user and $user->username) {
        return $user->nickname;
    }
}

1;