use strict;
use warnings;
-use base qw/Class::Data::Inheritable/;
+use base qw/DBIx::Class/;
__PACKAGE__->mk_classdata('_relationships', { } );
die "Can't create relationship without join condition" unless $cond;
$attrs ||= {};
eval "require $f_class;";
+ if ($@) {
+ $class->throw($@) unless $@ =~ /Can't locate/;
+ }
my %rels = %{ $class->_relationships };
$rels{$rel} = { class => $f_class,
cond => $cond,
join(', ', keys %{$attrs->{_aliases} || {}}) );
}
}
- return $self->NEXT::ACTUAL::_cond_key($attrs, $key);
+ return $self->next::method($attrs, $key);
}
sub _cond_value {
}
}
- return $self->NEXT::ACTUAL::_cond_value($attrs, $key, $value)
+ return $self->next::method($attrs, $key, $value)
}
=item search_related