Add more asset data attributes.

This commit is contained in:
Colin Kuskie 2010-01-01 09:32:13 -08:00
parent 38144bd58f
commit 9ff9f31f14

View file

@ -243,6 +243,16 @@ has assetId => (
lazy => 1,
default => sub { shift->session->id->generate() },
);
has [qw/parentId lineage className
creationDate createdBy
state stateChanged stateChangedBy
isLockedBy isSystem lastExportedAs/] => (
is => 'rw',
);
has className => (
is => 'ro',
default => sub { ref shift; },
);
around BUILDARGS => sub {
my $orig = shift;