The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package SchemaCollision::Result::User;

use strict;
use warnings;
use base qw/DBIx::Class::Core/;

sub permission { 'toto' } 

__PACKAGE__->load_components( qw/+DBIx::Class::LookupColumn/ );


__PACKAGE__->table("user");

__PACKAGE__->add_columns(
      "user_id",	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
      "first_name", { data_type => "varchar2", is_nullable => 0, size => 45 },
      "last_name", { data_type => "varchar2", is_nullable => 0, size => 45 },
      "permission_type_id", { data_type => "integer", is_nullable => 0 },
);

__PACKAGE__->set_primary_key("user_id");

__PACKAGE__->belongs_to( "permissionType" => "Schema3::Result::PermissionType", {"foreign.permission_type_id" => "self.permission_type_id"} );


__PACKAGE__->add_lookup(  'permission', 'permission_type_id', 'PermissionType' );



1;