Default ::Object attributes tree_sha1 and comment to '' when not present.

[catagits/Gitalist.git] / lib / Gitalist / Git / Object.pm

diff --git a/lib/Gitalist/Git/Object.pm b/lib/Gitalist/Git/Object.pm
index b47ab93..ff33b8d 100644 (file)
--- a/lib/Gitalist/Git/Object.pm
+++ b/lib/Gitalist/Git/Object.pm
@@ -31,15 +31,27 @@ class Gitalist::Git::Object {
                       lazy_build => 1,
                       handles => [ 'parents',
                                    'parent_sha1',
-                                   'comment',
                                    'author',
                                    'authored_time',
                                    'committer',
                                    'committed_time',
-                                   'tree_sha1',
                                ],
                   );
 
+    # This feels wrong, but current templates assume
+    # these attributes are present on every object.
+    foreach my $key (qw/tree_sha1 comment/) {
+        has $key => ( isa => Str,
+                      required => 1,
+                      is => 'ro',
+                      lazy_build => 1,
+                  );
+        method "_build_$key" {
+            return '' unless $self->_gpp_obj->can($key);
+            return $self->_gpp_obj->$key;
+        }
+    }
+
     # objects can't determine their mode or filename
     has file => ( isa => NonEmptySimpleStr,
                   required => 0,