almost working using metaclass roles

This commit is contained in:
Graham Knop 2010-02-26 16:53:21 -06:00
parent a2f0cbe9ba
commit 12fcdf201f
6 changed files with 116 additions and 60 deletions

View file

@ -22,6 +22,7 @@ use WebGUI::Test;
{
package WGT::Class::Atset;
use Moose;
use WebGUI::Definition::Asset;
define tableName => 'asset';
@ -42,6 +43,7 @@ use WebGUI::Test;
{
package WGT::Class::Asset;
use Moose;
use WebGUI::Definition::Asset;
define tableName => 'asset';
@ -136,6 +138,7 @@ use WebGUI::Test;
{
package WGT::Class::AlsoAsset;
use Moose;
use WebGUI::Definition::Asset;
define tableName => 'asset';
@ -153,6 +156,7 @@ use WebGUI::Test;
);
package WGT::Class::Asset::Snippet;
use Moose;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
@ -208,6 +212,7 @@ use WebGUI::Test;
{
package WGT::Class::Asset::NotherOne;
use Moose;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
@ -234,6 +239,7 @@ use WebGUI::Test;
{
package WGT::Class::Asset::Tertiary;
use Moose;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';