[Bps-public-commit] r14762 - Prophet/branches/creator/lib/Prophet

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug  4 16:23:23 2008
New Revision: 14762

Modified:
   Prophet/branches/creator/lib/Prophet/ChangeSet.pm

Log:
Add a creator attribute to ChangeSet

Modified: Prophet/branches/creator/lib/Prophet/ChangeSet.pm
==============================================================================
--- Prophet/branches/creator/lib/Prophet/ChangeSet.pm	(original)
+++ Prophet/branches/creator/lib/Prophet/ChangeSet.pm	Mon Aug  4 16:23:23 2008
@@ -4,6 +4,11 @@
 use Prophet::Change;
 use Params::Validate;
 
+has creator => (
+    is  => 'rw',
+    isa => 'Str',
+);
+
 has source_uuid => (
     is  => 'rw',
     isa => 'Str',
@@ -118,7 +123,7 @@
 =cut
 
 our @SERIALIZE_PROPS
-    = (qw(sequence_no source_uuid original_source_uuid original_sequence_no is_nullification is_resolution));
+    = (qw(creator sequence_no source_uuid original_source_uuid original_sequence_no is_nullification is_resolution));
 
 sub as_hash {
     my $self = shift;