Lay the groundwork for WebGUI::Definition::Crud

lib/WebGUI/Definition/Meta/Crud.pm

@@ -0,0 +1,87 @@
+package WebGUI::Definition::Meta::Crud;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2009 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use 5.010;
+use Moose::Role;
+use namespace::autoclean;
+use WebGUI::Definition::Meta::Property;
+use WebGUI::Definition::Meta::Property::Asset;
+no warnings qw(uninitialized);
+
+with 'WebGUI::Definition::Meta::Class';
+
+our $VERSION = '0.0.1';
+
+=head1 NAME
+
+Package WebGUI::Definition::Meta::Shop
+
+=head1 DESCRIPTION
+
+Extends 'WebGUI::Definition::Meta::Class' to provide attributes specific to Assets.
+
+=head1 METHODS
+
+These methods are available from this class:
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 property_meta ( )
+
+Asset Definitions use WebGUI::Definition::Meta::Property::Asset as the base class
+for properties.
+
+=cut
+
+has 'property_metaroles' => (
+    is => 'ro',
+    default => sub { [ 'WebGUI::Definition::Meta::Property', 'WebGUI::Definition::Meta::Property::Crud'] },
+);
+
+#-------------------------------------------------------------------
+
+has [ qw{tableName tableKey sequenceKey} ] => (
+    is       => 'rw',
+);
+
+#-------------------------------------------------------------------
+
+=head2 tableName ( )
+
+The table that this plugin stores its properties in.
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 tableKey ( )
+
+The column in the table that is the primary key.
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 sequenceKey ( )
+
+The column in the table that denotes the order of objects in the table.  If undef, or empty,
+then no ordering is possible.
+
+=cut
+
+1;