From f283b33b5645342320ccfb75498258114bee1fe4 Mon Sep 17 00:00:00 2001 From: Kent Fredric Date: Sat, 16 Aug 2014 11:07:22 +1200 Subject: [PATCH] Reduce whitespace --- Changes | 8 +++++ lib/Git/PurePerl/Walker.pm | 46 ++++++++++++------------- lib/Git/PurePerl/Walker/Role/HasRepo.pm | 41 +++++++++++----------- 3 files changed, 51 insertions(+), 44 deletions(-) diff --git a/Changes b/Changes index 68b0bfb..191f63f 100644 --- a/Changes +++ b/Changes @@ -1,10 +1,18 @@ Release history for Git-PurePerl-Walker {{$NEXT}} + [00 Trivial] + - CPANDAY! + - no code changes. + - whitespace reduced. + [Dependencies::Stats] - Dependencies changed since 0.003000, see misc/*.deps* for details - develop: +1 (suggests: ↑1) + [Misc] + - Improve source side POD to reduce build side whitespace. + 0.003000 2014-08-07T20:42:17Z [00 Major] - Changes that may affect hand-operated downstreams. diff --git a/lib/Git/PurePerl/Walker.pm b/lib/Git/PurePerl/Walker.pm index a47486f..12999eb 100644 --- a/lib/Git/PurePerl/Walker.pm +++ b/lib/Git/PurePerl/Walker.pm @@ -17,29 +17,6 @@ use Class::Load qw( ); use Git::PurePerl::Walker::Types qw( GPPW_Repository GPPW_Methodish GPPW_Method GPPW_OnCommitish GPPW_OnCommit); use namespace::autoclean; -=head1 SYNOPSIS - - - use Git::PurePerl::Walker; - use Git::PurePerl::Walker::Method::FirstParent; - - my $repo = Git::PurePerl->new( ... ); - - my $walker = Git::PurePerl::Walker->new( - repo => $repo, - method => Git::PurePerl::Walker::Method::FirstParent->new( - start => $repo->ref_sha1('refs/heads/master'), - ), - on_commit => sub { - my ( $commit ) = @_; - print $commit->sha1; - }, - ); - - $walker->step_all; - -=cut - =carg repo B An instance of L<< C|Git::PurePerl >> representing @@ -340,3 +317,26 @@ __PACKAGE__->meta->make_immutable; no Moose; 1; + +=head1 SYNOPSIS + + + use Git::PurePerl::Walker; + use Git::PurePerl::Walker::Method::FirstParent; + + my $repo = Git::PurePerl->new( ... ); + + my $walker = Git::PurePerl::Walker->new( + repo => $repo, + method => Git::PurePerl::Walker::Method::FirstParent->new( + start => $repo->ref_sha1('refs/heads/master'), + ), + on_commit => sub { + my ( $commit ) = @_; + print $commit->sha1; + }, + ); + + $walker->step_all; + +=cut diff --git a/lib/Git/PurePerl/Walker/Role/HasRepo.pm b/lib/Git/PurePerl/Walker/Role/HasRepo.pm index f4d125a..1d4d566 100644 --- a/lib/Git/PurePerl/Walker/Role/HasRepo.pm +++ b/lib/Git/PurePerl/Walker/Role/HasRepo.pm @@ -11,27 +11,6 @@ our $VERSION = '0.003001'; # AUTHORITY -=head1 DESCRIPTION - -This is a composition role consumed by other roles to provide them with a -private repo property. - -This role also folds in L<< C>|MooseX::Clone >> and provides the 'for_repository' -method which sets the repo property. - - package Foo { - use Moose; - with 'Git::PurePerl::Walker::Role::HasRepo'; - __PACKAGE__->meta->make_immutable; - } - - my $factory = Foo->new( %args ); - - my $instance = $factory->for_repository( $Git_PurePerl_Repo ); - - -=cut - use Moose::Role qw( with has ); use Git::PurePerl::Walker::Types qw( GPPW_Repository ); @@ -92,3 +71,23 @@ sub for_repository { no Moose::Role; 1; + +=head1 DESCRIPTION + +This is a composition role consumed by other roles to provide them with a +private repo property. + +This role also folds in L<< C>|MooseX::Clone >> and provides the 'for_repository' +method which sets the repo property. + + package Foo { + use Moose; + with 'Git::PurePerl::Walker::Role::HasRepo'; + __PACKAGE__->meta->make_immutable; + } + + my $factory = Foo->new( %args ); + + my $instance = $factory->for_repository( $Git_PurePerl_Repo ); + +=cut