Rename ::Project to ::Repository
Zachary Stevens [Sat, 19 Dec 2009 02:02:52 +0000 (02:02 +0000)]
16 files changed:
README
lib/Gitalist.pm
lib/Gitalist/Git/CollectionOfProjects.pm
lib/Gitalist/Git/CollectionOfProjects/FromDirectory.pm
lib/Gitalist/Git/Object.pm
lib/Gitalist/Git/Object/Blob.pm
lib/Gitalist/Git/Object/Commit.pm
lib/Gitalist/Git/Object/HasTree.pm
lib/Gitalist/Git/Object/Tag.pm
lib/Gitalist/Git/Object/Tree.pm
lib/Gitalist/Git/Repository.pm [moved from lib/Gitalist/Git/Project.pm with 98% similarity]
lib/Gitalist/Git/Util.pm
t/02git_CollectionOfProjects_FromDirectory.t
t/02git_Repository.t [moved from t/02git_project.t with 93% similarity]
t/02git_object.t
t/02git_util.t

diff --git a/README b/README
index 06c2cc2..86853b2 100644 (file)
--- a/README
+++ b/README
@@ -129,7 +129,7 @@ SUPPORT
 SEE ALSO
     Gitalist::Controller::Root
 
-    Gitalist::Git::Project
+    Gitalist::Git::Repository
 
     Catalyst
 
index 46686bf..802e726 100644 (file)
@@ -176,7 +176,7 @@ we plan to go with the project.
 
 L<Gitalist::Controller::Root>
 
-L<Gitalist::Git::Project>
+L<Gitalist::Git::Repository>
 
 L<Catalyst>
 
index 5b111ac..2ba026c 100644 (file)
@@ -4,19 +4,19 @@ role Gitalist::Git::CollectionOfProjects {
     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
     use MooseX::Types::Moose qw/ArrayRef/;
     use Moose::Autobox;
-    use aliased 'Gitalist::Git::Project';
+    use aliased 'Gitalist::Git::Repository';
 
     has projects => (
         is => 'ro',
-        isa => ArrayRef['Gitalist::Git::Project'],
+        isa => ArrayRef['Gitalist::Git::Repository'],
         required => 1,
         lazy_build => 1,
     );
     method get_project (NonEmptySimpleStr $name) {
         my $path = $self->_get_path_for_project_name($name);
-        die "Not a valid Project"
+        die "Not a valid git repository."
             unless $self->_is_git_repo($path);
-        return Project->new( $path );
+        return Repository->new( $path );
     }
     # Determine whether a given directory is a git repo.
     method _is_git_repo ($dir) {
index b9ab1c1..9fef31a 100644 (file)
@@ -68,7 +68,7 @@ The filesystem root of the C<Repo>.
 
 =head2 projects
 
-An array of all L<Gitalist::Git::Project>s found in C<repo_dir>.
+An array of all L<Gitalist::Git::Repository>s found in C<repo_dir>.
 
 
 
@@ -76,7 +76,7 @@ An array of all L<Gitalist::Git::Project>s found in C<repo_dir>.
 
 =head2 get_project (Str $name)
 
-Returns a L<Gitalist::Git::Project> for the given name.
+Returns a L<Gitalist::Git::Repository> for the given name.
 If C<$name> is not a valid git repository under C<$repo_dir>, an exception
 will be thrown.
 
@@ -84,7 +84,7 @@ will be thrown.
 
 =head1 SEE ALSO
 
-L<Gitalist::Git::Project>
+L<Gitalist::Git::Repository>
 
 
 =head1 AUTHORS
index 9cefe6c..b3e32ed 100644 (file)
@@ -6,7 +6,7 @@ class Gitalist::Git::Object {
     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
 
     # project and sha1 are required initargs
-    has project => ( isa => 'Gitalist::Git::Project',
+    has project => ( isa => 'Gitalist::Git::Repository',
                      required => 1,
                      is => 'ro',
                      weak_ref => 1,
@@ -115,7 +115,7 @@ Gitalist::Git::Object - Model of a git object.
 
 =head1 SYNOPSIS
 
-    my $object = Project->get_object($sha1);
+    my $object = Repository->get_object($sha1);
 
 =head1 DESCRIPTION
 
index 7561d2c..c72bd14 100644 (file)
@@ -15,7 +15,7 @@ Gitalist::Git::Object::Blob
 
 =head1 SYNOPSIS
 
-    my $blob = Project->get_object($blob_sha1);
+    my $blob = Repository->get_object($blob_sha1);
 
 =head1 DESCRIPTION
 
index a6261fa..f108d78 100644 (file)
@@ -196,7 +196,7 @@ Gitalist::Git::Object::Commit
 
 =head1 SYNOPSIS
 
-    my $commit = Project->get_object($commit_sha1);
+    my $commit = Repository->get_object($commit_sha1);
 
 =head1 DESCRIPTION
 
index 501576a..13f78bc 100644 (file)
@@ -42,7 +42,7 @@ Gitalist::Git::Object::HasTree
 
 =head1 SYNOPSIS
 
-    my $tree = Project->get_object($tree_sha1);
+    my $tree = Repository->get_object($tree_sha1);
 
 =head1 DESCRIPTION
 
index 766145e..8f6eb11 100644 (file)
@@ -22,7 +22,7 @@ Gitalist::Git::Object::Tag
 
 =head1 SYNOPSIS
 
-    my $tag = Project->get_object($tag_sha1);
+    my $tag = Repository->get_object($tag_sha1);
 
 =head1 DESCRIPTION
 
index ff01acd..6b19d15 100644 (file)
@@ -20,7 +20,7 @@ Gitalist::Git::Object::Tree
 
 =head1 SYNOPSIS
 
-    my $tree = Project->get_object($tree_sha1);
+    my $tree = Repository->get_object($tree_sha1);
 
 =head1 DESCRIPTION
 
similarity index 98%
rename from lib/Gitalist/Git/Project.pm
rename to lib/Gitalist/Git/Repository.pm
index 975483f..f82a026 100644 (file)
@@ -1,6 +1,6 @@
 use MooseX::Declare;
 
-class Gitalist::Git::Project with Gitalist::Git::HasUtils {
+class Gitalist::Git::Repository with Gitalist::Git::HasUtils {
     # FIXME, use Types::Path::Class and coerce
     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
     use MooseX::Types::Path::Class qw/Dir/;
@@ -19,7 +19,7 @@ class Gitalist::Git::Project with Gitalist::Git::HasUtils {
     our $SHA1RE = qr/[0-9a-fA-F]{40}/;
 
     around BUILDARGS (ClassName $class: Dir $dir) {
-        # Allows us to be called as Project->new($dir)
+        # Allows us to be called as Repository->new($dir)
         # Last path component becomes $self->name
         # Full path to git objects becomes $self->path
         my $name = $dir->dir_list(-1);
@@ -334,12 +334,12 @@ __END__
 
 =head1 NAME
 
-Gitalist::Git::Project - Model of a git repository
+Gitalist::Git::Repository - Model of a git repository
 
 =head1 SYNOPSIS
 
     my $gitrepo = dir('/repo/base/Gitalist');
-    my $project = Gitalist::Git::Project->new($gitrepo);
+    my $project = Gitalist::Git::Repository->new($gitrepo);
      $project->name;        # 'Gitalist'
      $project->path;        # '/repo/base/Gitalist/.git'
      $project->description; # 'Unnamed repository.'
index 53fdb5b..ffccaf8 100644 (file)
@@ -8,7 +8,7 @@ class Gitalist::Git::Util {
     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
 
     has project => (
-        isa => 'Gitalist::Git::Project',
+        isa => 'Gitalist::Git::Repository',
         handles => { gitdir => 'path' },
         is => 'bare', # No accessor
         weak_ref => 1, # Weak, you have to hold onto me.
index 01c7696..1c7ceb3 100644 (file)
@@ -28,7 +28,7 @@ ok( ! $repo->_is_git_repo( $repoEmpty ), 'is_git_repo is false for empty dir' );
 
 my $project_list = $repo->projects;
 ok(scalar @{$project_list} == 3, 'list_projects returns an array with the correct number of members' );
-isa_ok($project_list->[0], 'Gitalist::Git::Project');
+isa_ok($project_list->[0], 'Gitalist::Git::Repository');
 is($project_list->[0]->{name}, 'bare.git', 'list_projects has correct name for "bare.git" repo' );
 
 dies_ok {
@@ -44,7 +44,7 @@ dies_ok {
 } 'throws exception for directory traversal';
 
 my $project = $repo->get_project('repo1');
-isa_ok($project, 'Gitalist::Git::Project');
+isa_ok($project, 'Gitalist::Git::Repository');
 
 
 # check for bug where get_project blew up if repo_dir
similarity index 93%
rename from t/02git_project.t
rename to t/02git_Repository.t
index 729b9f8..738c7f7 100644 (file)
@@ -21,17 +21,17 @@ BEGIN {
     };
 }
 
-BEGIN { use_ok 'Gitalist::Git::Project' }
+BEGIN { use_ok 'Gitalist::Git::Repository' }
 
 dies_ok {
-    my $proj = Gitalist::Git::Project->new();
+    my $proj = Gitalist::Git::Repository->new();
 } 'New project with no args';
 
 use Path::Class;
 my $gitdir = dir("$Bin/lib/repositories/repo1");
 
-my $proj = Gitalist::Git::Project->new($gitdir);
-isa_ok($proj, 'Gitalist::Git::Project');
+my $proj = Gitalist::Git::Repository->new($gitdir);
+isa_ok($proj, 'Gitalist::Git::Repository');
 is($proj->path, $gitdir, 'project path is set');
 isa_ok($proj->path, 'Path::Class::Dir', 'project path');
 is($proj->name, qw/repo1/, 'repository name is set');
index 3a1ad62..5a56041 100644 (file)
@@ -6,8 +6,8 @@ use Test::Exception;
 use Data::Dumper;
 
 use Path::Class;
-use Gitalist::Git::Project;
-my $project = Gitalist::Git::Project->new(
+use Gitalist::Git::Repository;
+my $project = Gitalist::Git::Repository->new(
     dir("$Bin/lib/repositories/repo1"),
 );
 
index 30d12c8..9a3d59d 100644 (file)
@@ -7,13 +7,13 @@ use Data::Dumper;
 
 BEGIN {
     use_ok 'Gitalist::Git::Util';
-    use_ok 'Gitalist::Git::Project';
+    use_ok 'Gitalist::Git::Repository';
 }
 
 use Path::Class;
 my $gitdir = dir("$Bin/lib/repositories/repo1");
 
-my $proj = Gitalist::Git::Project->new($gitdir);
+my $proj = Gitalist::Git::Repository->new($gitdir);
 my $util = Gitalist::Git::Util->new(
     project => $proj,
 );