From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sun, 6 Dec 2009 13:33:26 +0000 (+0000)
Subject: Small cleanups
X-Git-Tag: 0.000002~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50d45f00142b7a1fe1e1d2614328a7568ce38172;p=catagits%2FGitalist.git

Small cleanups
---

diff --git a/lib/Gitalist/Git/HasUtils.pm b/lib/Gitalist/Git/HasUtils.pm
index e162e20..99a2d61 100644
--- a/lib/Gitalist/Git/HasUtils.pm
+++ b/lib/Gitalist/Git/HasUtils.pm
@@ -6,13 +6,13 @@ use namespace::autoclean;
 sub BUILD {}
 after BUILD => sub {
     my $self = shift;
-    # Force value build. A little convoluted as we don't have an accessor :)
-    $self->_util;
+    $self->meta->get_attribute('_util')->get_read_method_ref->($self); # Force value build.
 };
 
 has _util => ( isa => 'Gitalist::Git::Util',
-               is => 'ro',
-               lazy_build => 1,
+               lazy => 1,
+               is => 'bare',
+               builder => '_build_util',
                handles => [ 'run_cmd',
                             'run_cmd_fh',
                             'run_cmd_list',
@@ -21,7 +21,7 @@ has _util => ( isa => 'Gitalist::Git::Util',
                         ],
            );
 
-sub _build__util { confess(shift() . " cannot build _util") }
+sub _build_util { confess(shift() . " cannot build _util") }
 
 1;
 
diff --git a/lib/Gitalist/Git/Project.pm b/lib/Gitalist/Git/Project.pm
index ea425e2..0abb3e7 100644
--- a/lib/Gitalist/Git/Project.pm
+++ b/lib/Gitalist/Git/Project.pm
@@ -340,7 +340,7 @@ FIXME Should this return objects?
     }
 
     ## BUILDERS
-    method _build__util {
+    method _build_util {
         Gitalist::Git::Util->new(
             project => $self,
         );