Extra strictness in ::Project

diff --git a/lib/Gitalist/Git/Project.pm b/lib/Gitalist/Git/Project.pm
index c5e5f94..5a8096f 100644 (file)
--- a/lib/Gitalist/Git/Project.pm
+++ b/lib/Gitalist/Git/Project.pm
@@ -12,9 +12,9 @@ class Gitalist::Git::Project {
     our $SHA1RE = qr/[0-9a-fA-F]{40}/;
     
     has name => ( isa => NonEmptySimpleStr,
-                  is => 'ro' );
+                  is => 'ro', required => 1 );
     has path => ( isa => "Path::Class::Dir",
-                  is => 'ro');
+                  is => 'ro', required => 1);
 
     has description => ( isa => Str,
                          is => 'ro',
@@ -34,6 +34,10 @@ class Gitalist::Git::Project {
                    handles => [ 'run_cmd' ],
                );
 
+    method BUILD {
+        $self->$_() for qw/_util last_change owner description/; # Ensure to build early.
+    }
+
     method _build__util {
         my $util = Gitalist::Git::Util->new(
             gitdir => $self->project_dir($self->path),
@@ -116,7 +120,7 @@ The keys for each item will be:
         return @ret;
     }
 
-
+    # FIXME - Why not just stay in Path::Class land and return a P::C::D here?
     method project_dir {
         my $dir = $self->path->stringify;
         $dir .= '/.git'