rclass stuff ripped out of everything but widget classes

[catagits/Reaction.git] / lib / Reaction / InterfaceModel / Collection / Virtual / ResultSet.pm

diff --git a/lib/Reaction/InterfaceModel/Collection/Virtual/ResultSet.pm b/lib/Reaction/InterfaceModel/Collection/Virtual/ResultSet.pm
index 5c905d7..41a4b36 100644 (file)
--- a/lib/Reaction/InterfaceModel/Collection/Virtual/ResultSet.pm
+++ b/lib/Reaction/InterfaceModel/Collection/Virtual/ResultSet.pm
@@ -3,17 +3,17 @@ package Reaction::InterfaceModel::Collection::Virtual::ResultSet;
 use Reaction::Class;
 # WARNING - DANGER: this is just an RFC, please DO NOT USE YET
 
-class ResultSet is "Reaction::InterfaceModel::Collection::Virtual", which {
-
-  does "Reaction::InterfaceModel::Collection::DBIC::Role::Base",
-       "Reaction::InterfaceModel::Collection::DBIC::Role::Where";
+use namespace::clean -except => [ qw(meta) ];
+extends "Reaction::InterfaceModel::Collection::Virtual";
 
+with "Reaction::InterfaceModel::Collection::DBIC::Role::Base",
+     "Reaction::InterfaceModel::Collection::DBIC::Role::Where";
+sub _build__default_action_class_prefix {
+  shift->member_type;
+};
 
-  implements _build__default_action_class_prefix => as {
-    shift->member_type;
-  };
+__PACKAGE__->meta->make_immutable;
 
-};
 
 1;