distarification

[dbsrgits/DBIx-Class-ParameterizedJoinHack.git] / t / lib / My / Schema / Result / Person.pm

package My::Schema::Result::Person;

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

__PACKAGE__->load_components(qw(ParameterizedJoinHack));

__PACKAGE__->table('people');

__PACKAGE__->add_columns(
  id => { data_type => 'integer', is_nullable => 0, is_auto_increment => 1 },
  name => { data_type => 'text', is_nullable => 0 }
);

__PACKAGE__->set_primary_key('id');

__PACKAGE__->has_many(
  assigned_tasks => 'My::Schema::Result::Task',
  { 'foreign.assigned_to_id' => 'self.id' },
);

__PACKAGE__->parameterized_has_many(
  urgent_assigned_tasks => 'My::Schema::Result::Task',
  [ [ qw(urgency_threshold) ], sub {
      my $args = shift;
      +{
        "$args->{foreign_alias}.assigned_to_id" =>
          { -ident => "$args->{self_alias}.id" },
        "$args->{foreign_alias}.urgency" =>
          { '>', $_{urgency_threshold} }
      }
    }
  ]
);

1;