[carton] 440/472: support generator for Index

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit 675e23024b461da0795684226fc7d00cbeeac42d
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Sun Apr 19 19:23:30 2015 +0200

    support generator for Index
---
 lib/Carton/Index.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Carton/Index.pm b/lib/Carton/Index.pm
index 278095a..7c7b6cf 100644
--- a/lib/Carton/Index.pm
+++ b/lib/Carton/Index.pm
@@ -2,6 +2,7 @@ package Carton::Index;
 use strict;
 use Class::Tiny {
     _packages => sub { +{} },
+    generator => sub { require Carton; "Carton $Carton::VERSION" },
 };
 
 sub add_package {
@@ -28,7 +29,7 @@ URL:          http://www.perl.com/CPAN/modules/02packages.details.txt
 Description:  Package names found in cpanfile.snapshot
 Columns:      package name, version, path
 Intended-For: Automated fetch routines, namespace documentation.
-Written-By:   Carton $Carton::VERSION
+Written-By:   @{[ $self->generator ]}
 Line-Count:   @{[ $self->count ]}
 Last-Updated: @{[ scalar localtime ]}
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git