aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/InterfaceModel
diff options
context:
space:
mode:
authorgroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-14 20:23:54 +0000
committergroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-14 20:23:54 +0000
commitd98c38f818ed12acc107ad327ec3864ef4ade96a (patch)
treef0f0b380c03393f4f4258752bd03cb43adc768c6 /lib/Reaction/InterfaceModel
parentbae75beec20b3b73faa2118db8ebfa5b93c9918a (diff)
downloadreaction-d98c38f818ed12acc107ad327ec3864ef4ade96a.tar.gz
reaction-d98c38f818ed12acc107ad327ec3864ef4ade96a.zip
that warning is just idiotic
Diffstat (limited to 'lib/Reaction/InterfaceModel')
-rw-r--r--lib/Reaction/InterfaceModel/Action/DBIC/ResultSet/Create.pm6
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/Reaction/InterfaceModel/Action/DBIC/ResultSet/Create.pm b/lib/Reaction/InterfaceModel/Action/DBIC/ResultSet/Create.pm
index eaaafec..d81ff5a 100644
--- a/lib/Reaction/InterfaceModel/Action/DBIC/ResultSet/Create.pm
+++ b/lib/Reaction/InterfaceModel/Action/DBIC/ResultSet/Create.pm
@@ -17,11 +17,7 @@ sub do_apply {
my $new = $self->target_model->new({});
my @delay;
foreach my $name (keys %$args) {
- my $tm_attr = $new->meta->find_attribute_by_name($name);
- unless ($tm_attr) {
- warn "Unable to find attr for ${name}";
- next;
- }
+ my $tm_attr = $new->meta->find_attribute_by_name($name) or next;
my $tm_writer = $tm_attr->get_write_method;
unless ($tm_writer) {
warn "Unable to find writer for ${name}";