Make the version number sane and clean up copyright/license statements everywhere
Tomas Doran [Wed, 25 Nov 2009 20:22:00 +0000 (20:22 +0000)]
17 files changed:
Changes
gitweb.conf [deleted file]
lib/Gitalist.pm
lib/Gitalist/Controller/Root.pm
lib/Gitalist/Git/HasUtils.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/Project.pm
lib/Gitalist/Git/Repo.pm
lib/Gitalist/Git/Util.pm
lib/Gitalist/Model/GitRepos.pm
lib/Gitalist/View/Default.pm
lib/Gitalist/View/SyntaxHighlight.pm

diff --git a/Changes b/Changes
index 03f7451..f6a472e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
 This file documents the revision history for Perl extension Gitalist.
 
-0.01  2009-08-04 16:36:40
-        - initial revision, generated by Catalyst
+0.000000_01  UNRELEASED
+   - Initial release to CPAN
diff --git a/gitweb.conf b/gitweb.conf
deleted file mode 100644 (file)
index e69de29..0000000
index 14b2b8e..96ea250 100644 (file)
@@ -1,8 +1,8 @@
 package Gitalist;
 use Moose;
-use namespace::autoclean;
-
+BEGIN { require 5.008006; }
 use Catalyst::Runtime 5.80;
+use namespace::autoclean;
 
 extends 'Catalyst';
 
@@ -13,7 +13,8 @@ use Catalyst qw/
                 StackTrace
 /;
 
-our $VERSION = '0.01';
+our $VERSION = '0.000000_01';
+$VERSION = eval $VERSION;
 
 __PACKAGE__->config(
     name => 'Gitalist',
@@ -21,7 +22,6 @@ __PACKAGE__->config(
     default_model => 'GitRepos',
 );
 
-# Start the application
 __PACKAGE__->setup();
 
 around uri_for => sub {
@@ -38,15 +38,18 @@ around uri_for => sub {
   return $uri;
 };
 
+1;
+
+__END__
+
 =head1 NAME
 
-Gitalist - Transitional project to convert gitweb.cgi to a Catalyst app
+Gitalist - A modern git web viewer
 
 =head1 SYNOPSIS
 
     script/gitalist_server.pl
 
-
 =head1 INSTALL
 
 As Gitalist follows the usual Perl module format the usual approach
@@ -58,14 +61,12 @@ for installation should work e.g
   make install
 
 If you're running a git checkout of Gitalist then you'll additionally
-need the author modules. I<NB: As no distribution exists one will
-presently need the author modules>.
+need the author modules.
 
 =head1 DESCRIPTION
 
 Gitalist is a web frontend for git repositories based on gitweb.cgi
-and backed by Catalyst. It doesn't yet have the full functionality of
-gitweb.cgi but it does have a few small additions at this stage.
+and backed by Catalyst.
 
 =head2 History
 
@@ -101,5 +102,3 @@ L<Catalyst>
 Licensed under GNU GPL v2
 
 =cut
-
-1;
index e8533d0..b6ae871 100644 (file)
@@ -711,16 +711,17 @@ sub age_string {
   return $age_str;
 }
 
+__PACKAGE__->meta->make_immutable;
+
+__END__
+
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Dan Brook
+See L<Gitalist> for authors.
 
 =head1 LICENSE
 
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
 
 =cut
-
-__PACKAGE__->meta->make_immutable;
index 8815b6a..e162e20 100644 (file)
@@ -24,3 +24,15 @@ has _util => ( isa => 'Gitalist::Git::Util',
 sub _build__util { confess(shift() . " cannot build _util") }
 
 1;
+
+__END__
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 154f012..544b473 100644 (file)
@@ -74,3 +74,15 @@ class Gitalist::Git::Object {
     }
 
 } # end class
+
+
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 91e43fb..59061b2 100644 (file)
@@ -4,3 +4,25 @@ use MooseX::Declare;
 class Gitalist::Git::Object::Blob extends Gitalist::Git::Object {
   has '+type' => ( default => 'blob' );
 }
+
+1;
+
+__END__
+
+=head1 NAME
+
+Gitalist::Git::Object::Blob
+
+=head1 DESCRIPTION
+
+Gitalist::Git::Object::Blob.
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 59af17e..817c99f 100644 (file)
@@ -184,3 +184,26 @@ class Gitalist::Git::Object::Commit
     return \@filedata;
   }
 }
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Gitalist::Git::Object::Commit
+
+=head1 DESCRIPTION
+
+Gitalist::Git::Object::Commit.
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 5974af7..9f75a1e 100644 (file)
@@ -28,3 +28,28 @@ role Gitalist::Git::Object::HasTree {
     }
 
 }
+
+1;
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Gitalist::Git::Object::HasTree
+
+=head1 DESCRIPTION
+
+Gitalist::Git::Object::HasTree.
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 397f3bb..3511fb3 100644 (file)
@@ -11,3 +11,27 @@ class Gitalist::Git::Object::Tag extends Gitalist::Git::Object {
                          );
 
 }
+
+1;
+
+__END__
+
+__END__
+
+=head1 NAME
+
+Gitalist::Git::Object::Tag
+
+=head1 DESCRIPTION
+
+Gitalist::Git::Object::Tag.
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 0d05689..e771ec5 100644 (file)
@@ -9,3 +9,26 @@ class Gitalist::Git::Object::Tree
                                       ],
                          );
     }
+
+1;
+
+__END__
+
+
+=head1 NAME
+
+Gitalist::Git::Object::Tree
+
+=head1 DESCRIPTION
+
+Gitalist::Git::Object::Tree.
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 981e824..ea425e2 100644 (file)
@@ -447,26 +447,20 @@ FIXME Should this return objects?
                     map  split(/\n/, $_, 6), split /\0/, $output;
     }
 
+} # end class
+
+__END__
+
 =head1 SEE ALSO
 
 L<Gitalist::Git::Util> L<Gitalist::Git::Object>
 
-=head1 AUTHORS AND COPYRIGHT
-
-  Catalyst application:
-    (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
+=head1 AUTHORS
 
-  Original gitweb.cgi from which this was derived:
-    (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
-    (C) 2005, Christian Gierke
+See L<Gitalist> for authors.
 
 =head1 LICENSE
 
-FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
 
 =cut
-
-} # end class
index c236301..4a5d491 100644 (file)
@@ -93,29 +93,20 @@ name.
     method _is_git_repo ($dir) {
         return -f $dir->file('HEAD') || -f $dir->file('.git', 'HEAD');
     }
+}                               # end class
 
+__END__
 
 =head1 SEE ALSO
 
 L<Gitalist::Git::Project>
 
-=head1 AUTHORS AND COPYRIGHT
-
-  Catalyst application:
-    (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
+=head1 AUTHORS
 
-  Original gitweb.cgi from which this was derived:
-    (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
-    (C) 2005, Christian Gierke
+See L<Gitalist> for authors.
 
 =head1 LICENSE
 
-FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
 
 =cut
-
-
-}                               # end class
index 8b17e69..53fdb5b 100644 (file)
@@ -70,3 +70,16 @@ EOR
     }
 
 } # end class
+
+__END__
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
+
index e780f5b..5d2f66b 100644 (file)
@@ -23,3 +23,14 @@ sub build_per_context_instance {
 
 __PACKAGE__->meta->make_immutable;
 
+__END__
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut
index 4343f3f..757f982 100644 (file)
@@ -6,28 +6,29 @@ extends 'Catalyst::View::TT';
 
 use Template::Plugin::Cycle;
 
+__PACKAGE__->config(
+  TEMPLATE_EXTENSION => '.tt2',
+  WRAPPER            => 'default.tt2',
+);
+
+__PACKAGE__->meta->make_immutable(inline_constructor => 0);
+
+__END__
+
 =head1 NAME
 
-Gitalist::View::Default - Catalyst View
+Gitalist::View::Default - HTML View
 
 =head1 DESCRIPTION
 
-Catalyst View.
+HTML View.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Dan Brook
+See L<Gitalist> for authors.
 
 =head1 LICENSE
 
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
 
 =cut
-
-__PACKAGE__->config(
-  TEMPLATE_EXTENSION => '.tt2',
-  WRAPPER            => 'default.tt2',
-);
-
-__PACKAGE__->meta->make_immutable(inline_constructor => 0);
index 5e90ed8..9265a9d 100644 (file)
@@ -1,6 +1,5 @@
 package Gitalist::View::SyntaxHighlight;
 use Moose;
-use Gitalist; # ->path_to
 use namespace::autoclean;
 
 extends 'Catalyst::View';
@@ -88,3 +87,23 @@ sub highlight {
 }
 
 __PACKAGE__->meta->make_immutable;
+
+__END__
+
+=head1 NAME
+
+Gitalist::View::SyntaxHighlight - Responsible for syntax highlighting code
+
+=head1 DESCRIPTION
+
+Catalyst View for Syntax highlighting.
+
+=head1 AUTHORS
+
+See L<Gitalist> for authors.
+
+=head1 LICENSE
+
+See L<Gitalist> for the license.
+
+=cut