1 files changed, 60 insertions, 0 deletions
diff --git a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
new file mode 100644
index 0000000..77fbbe4
--- /dev/null
+++ b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
@@ -0,0 +1,60 @@
+package Reaction::Meta::InterfaceModel::Object::Class;
+
+use aliased 'Reaction::Meta::InterfaceModel::Object::ParameterAttribute';
+use aliased 'Reaction::Meta::InterfaceModel::Object::DomainModelAttribute';
+
+use Reaction::Class;
+
+class Class is 'Reaction::Meta::Class', which {
+
+  around initialize => sub {
+    my $super = shift;
+    my $class = shift;
+    my $pkg   = shift;
+    $super->($class, $pkg, attribute_metaclass => ParameterAttribute, @_);
+  };
+
+  implements add_domain_model => as{
+    my $self = shift;
+    $self->add_attribute( DomainModelAttribute->new(@_) );
+  };
+
+  implements parameter_attributes => as {
+    my $self = shift;
+    return grep { $_->isa(ParameterAttribute) } 
+      $self->compute_all_applicable_attributes;
+  };
+
+  implements domain_models => as {
+    my $self = shift;
+    return grep { $_->isa(DomainModelAttribute) } 
+      $self->compute_all_applicable_attributes;
+  };
+
+};
+  
+1;
+
+=head1 NAME
+
+Reaction::Meta::InterfaceModel::Object::Class
+
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=head2 add_domain_model
+
+=head2 domain_models
+
+=head2 parameter_attributes
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut