Fixed up Moose strictness causing Gitalist to die.

Better approaches welcome.

diff --git a/README b/README
index f4294ca..cfddeac 100644 (file)
--- a/README
+++ b/README
@@ -30,6 +30,7 @@ DEPENDENCIES
   DateTime::Format::Mail
   File::Stat::ModeString
   List::MoreUtils
+  MooseX::Types::Common
   # Probably others ...
 
 COPYRIGHT AND LICENCE

diff --git a/lib/Gitalist.pm b/lib/Gitalist.pm
index 0e8c2f3..16e0990 100644 (file)
--- a/lib/Gitalist.pm
+++ b/lib/Gitalist.pm
@@ -15,11 +15,6 @@ our $VERSION = '0.01';
 # Bring in the libified gitweb.cgi.
 use gitweb;
 
-before 'setup' => sub {
-    my $app = shift;
-    $app->config('Model::Git' => { repo_dir => $app->config('repo_dir') });
-};
-
 __PACKAGE__->config(
        name => 'Gitalist',
        default_view => 'Default',

diff --git a/lib/Gitalist/Model/Git.pm b/lib/Gitalist/Model/Git.pm
index 260bb26..77f324a 100644 (file)
--- a/lib/Gitalist/Model/Git.pm
+++ b/lib/Gitalist/Model/Git.pm
@@ -15,13 +15,15 @@ use File::Stat::ModeString;
 use List::MoreUtils qw/any/;
 use File::Which;
 
+has repo_dir => ( isa => NonEmptySimpleStr, is => 'ro', lazy_build => 1 ); # Fixme - path::class
+has git      => ( isa => NonEmptySimpleStr, is => 'ro', lazy_build => 1 );
+
 sub BUILD {
     my ($self) = @_;
     $self->git; # Cause lazy value build.
+       $self->repo_dir;
 }
 
-has git => ( isa => NonEmptySimpleStr, is => 'ro', lazy_build => 1 );
-
 sub _build_git {
        my $git = File::Which::which('git');
 
@@ -35,6 +37,10 @@ EOR
        return $git;
 }
 
+sub _build_repo_dir {
+       return Gitalist->config->{repo_dir};
+}
+
 sub is_git_repo {
     my ($self, $dir) = @_;
 
@@ -81,8 +87,6 @@ sub get_project_properties {
     return %props;
 }
 
-has repo_dir => ( isa => NonEmptySimpleStr, required => 1, is => 'ro' ); # Fixme - path::class
-
 sub list_projects {
     my ($self) = @_;