1 files changed, 27 insertions, 27 deletions
diff --git a/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Where.pm b/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Where.pm
index c5459ae..c612cb8 100644
--- a/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Where.pm
+++ b/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Where.pm
@@ -3,35 +3,35 @@ package Reaction::InterfaceModel::Collection::DBIC::Role::Where;
 use Reaction::Role;
 use Scalar::Util qw/blessed/;
 
-role Where, which {
-
-  #requires qw/_source_resultset _im_class/;
-  implements where => as {
-    my $self = shift;
-    my $rs = $self->_source_resultset->search_rs(@_);
-    return (blessed $self)->new(
-                                _source_resultset => $rs,
-                                member_type => $self->member_type
-                               );
-  };
-
-  implements add_where => as {
-    my $self = shift;
-    my $rs = $self->_source_resultset->search_rs(@_);
-    $self->_source_resultset($rs);
-    $self->_clear_collection_store if $self->_has_collection_store;
-    return $self;
-  };
-
-  #XXX may need a rename, but i needed this for ListView
-  implements find => as {
-    my $self = shift;
-    $self->_source_resultset
-      ->search({},{result_class => $self->member_type})
-        ->find(@_);
-  };
+use namespace::clean -except => [ qw(meta) ];
+
+
+#requires qw/_source_resultset _im_class/;
+sub where {
+  my $self = shift;
+  my $rs = $self->_source_resultset->search_rs(@_);
+  return (blessed $self)->new(
+                              _source_resultset => $rs,
+                              member_type => $self->member_type
+                             );
+};
+sub add_where {
+  my $self = shift;
+  my $rs = $self->_source_resultset->search_rs(@_);
+  $self->_source_resultset($rs);
+  $self->_clear_collection_store if $self->_has_collection_store;
+  return $self;
 };
 
+#XXX may need a rename, but i needed this for ListView
+sub find {
+  my $self = shift;
+  $self->_source_resultset
+    ->search({},{result_class => $self->member_type})
+      ->find(@_);
+};
+
+
 1;
 
 =head1 NAME