use namespace::clean -except => [ qw(meta) ];
-
has make_classes_immutable => (isa => "Bool", is => "rw", required => 1, default => sub{ 1 });
#user defined actions and prototypes
OUTER: until( $schema && $source_name && $source_class && $parent_dm ){
if( $schema && !$source_name){
- next OUTER if $source_name = $source_class->result_source_instance->source_name;
+ next OUTER if $source_name = $schema->source($source_class)->source_name;
} elsif( $schema && !$source_class){
next OUTER if $source_class = eval { $schema->class($source_name) };
}
- if($source_class && (!$schema || !$source_name)){
- if(!$schema){
- $schema = $source_class->result_source_instance->schema;
- next OUTER if $schema && Class::MOP::load_class($schema);
- }
- if(!$source_name){
- $source_name = $source_class->result_source_instance->source_name;
- next OUTER if $source_name;
- }
- }
- my @haystack = $parent_dm ?
- $parent->meta->find_attribute_by_name($parent_dm) : $parent->domain_models;
+ my @haystack = $parent_dm ? $parent->meta->find_attribute_by_name($parent_dm) : ();
#there's a lot of guessing going on, but it should work fine on most cases
INNER: for my $needle (@haystack){
my $isa = $needle->_isa_metadata;
next INNER unless Class::MOP::load_class( $isa->_isa_metadata );
next INNER unless $isa->isa('DBIx::Class::Schema');
- if(!$parent_dm && $schema && $isa eq $schema){
- $parent_dm = $needle->name;
- next OUTER;
- }
if( $source_name ){
my $src_class = eval{ $isa->class($source_name) };
}
}
- #do we even need to go this far?
- if( !$parent_dm && $schema ){
- my $tentative = $self->dm_name_from_class_name($schema);
- $parent_dm = $tentative if grep{$_->name eq $tentative} @haystack;
- }
confess("Could not determine options automatically from: schema " .
"'${schema}', source_name '${source_name}', source_class " .
(
object_class => $obj_meta->name,
source_class => $opts{source_class},
+ schema => $opts{schema_class},
%$collection
);
my $object = delete $opts{object_class};
my $source = delete $opts{source_class};
my $action_rules = delete $opts{actions};
+ my $schema = delete $opts{schema};
confess('object_class and source_class are required parameters')
unless $object && $source;
#hash key as the name. I think this is sane beahvior, but I've actually been thinking
#of making Action prototypes their own separate objects
$self->reflect_source_action(
+ schema => $schema,
name => $action,
object_class => $object,
source_class => $source,
my $attributes = $self->parse_reflect_rules($attr_rules, $attr_haystack);
for my $attr_name (keys %$attributes){
$self->reflect_source_object_attribute(
+ schema => $schema,
class => $class,
source_class => $source_class,
parent_class => $parent,
#hash key as the name. I think this is sane beahvior, but I've actually been thinking
#of making Action prototypes their own separate objects
$self->reflect_source_action(
+ schema => $schema,
name => $action,
object_class => $class,
source_class => $source_class,
my $dm_name = delete $opts{domain_model_name};
my $source_class = delete $opts{source_class};
my $parent_class = delete $opts{parent_class};
+ my $schema = $opts{schema};
confess("parent_class is a required argument") unless $parent_class;
confess("You must supply at least one of domain_model_name and source_class")
unless $dm_name || $source_class;
- my $source;
- $source = $source_class->result_source_instance if $source_class;
- #puke! dwimery
- if( !$source_class ){
- my $dm = $class->meta->find_attribute_by_name($dm_name);
- $source_class = $dm->_isa_metadata;
- $source = $source_class->result_source_instance;
- } elsif( !$dm_name ){
- ($dm_name) = map{$_->name} grep{$_->_isa_metadata eq $source_class}
- $class->meta->domain_models;
- if( !$dm_name ){ #last resort guess
- my $tentative = $self->dm_name_from_source_name($source->source_name);
- ($dm_name) = $tentative if grep{$_->name eq $tentative} $class->domain_models;
- }
- }
-
+ my $source = $schema->source($source_class);
my $from_attr = $source_class->meta->find_attribute_by_name($attr_name);
my $reader = $from_attr->get_read_method;
+ die("Could not find reader for attribute '$attr_name' on $source_class")
+ unless $reader;
#default options. lazy build but no outsider method
my %attr_opts = ( is => 'ro', lazy => 1, required => 1,
domain_model => $dm_name,
orig_attr_name => $attr_name,
);
+ $attr_opts{coerce} = 1 if $from_attr->should_coerce;
#m2m / has_many
my $m2m_meta;
if( my $rel_info = $source->relationship_info($attr_name) ){
my $rel_accessor = $rel_info->{attrs}->{accessor};
- my $rel_moniker = $rel_info->{class}->result_source_instance->source_name;
+ my $rel_moniker = $schema->source($rel_info->{class})->source_name;
if($rel_accessor eq 'multi' && $constraint_is_ArrayRef) {
#has_many
} else {
#no rel
$attr_opts{isa} = $from_attr->_isa_metadata;
- $attr_opts{default} = eval "sub{ shift->${dm_name}->${reader} }";
+ my $default_code = "sub{ shift->${dm_name}->${reader} }";
+ $attr_opts{default} = eval $default_code;
+ die "Could not generate default for attribute, code '$default_code' did not compile with: $@" if $@;
}
return \%attr_opts;
};
my $class = delete $opts{class};
my $object = delete $opts{object_class};
my $source = delete $opts{source_class};
+ my $schema = delete $opts{schema};
confess("name, object_class and source_class are required arguments")
unless $source && $name && $object;
my $o_meta = $object->meta;
my $s_meta = $source->meta;
- my $attributes = $self->parse_reflect_rules($attr_rules, $attr_haystack);
+ my $attributes = $self->parse_reflect_rules($attr_rules, $attr_haystack);
#create the class
my $meta = $self->_load_or_create(
my $attr_params = $self->parameters_for_source_object_action_attribute
(
+ schema => $schema,
object_class => $object,
source_class => $source,
attribute_name => $attr_name
my $object = delete $opts{object_class};
my $attr_name = delete $opts{attribute_name};
my $source_class = delete $opts{source_class};
+ my $schema = delete $opts{schema};
+ my $source = $schema->source($source_class);
confess("object_class and attribute_name are required parameters")
unless $attr_name && $object;
$from_attr->type_constraint->name eq 'ArrayRef' ||
$from_attr->type_constraint->is_subtype_of('ArrayRef');
- my $source = $source_class->result_source_instance;
if (my $rel_info = $source->relationship_info($attr_name)) {
my $rel_accessor = $rel_info->{attrs}->{accessor};
projects / catagits/Reaction.git / blobdiff