Skip to content

Commit

Permalink
Reduce whitespace
Browse files Browse the repository at this point in the history
  • Loading branch information
kentfredric committed Aug 15, 2014
1 parent 88f0f1c commit f283b33
Show file tree
Hide file tree
Showing 3 changed files with 51 additions and 44 deletions.
8 changes: 8 additions & 0 deletions Changes
Original file line number Diff line number Diff line change
@@ -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.
Expand Down
46 changes: 23 additions & 23 deletions lib/Git/PurePerl/Walker.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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<Mandatory:> An instance of L<< C<Git::PurePerl>|Git::PurePerl >> representing
Expand Down Expand Up @@ -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
41 changes: 20 additions & 21 deletions lib/Git/PurePerl/Walker/Role/HasRepo.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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::B<Clone>>|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 );

Expand Down Expand Up @@ -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::B<Clone>>|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

0 comments on commit f283b33

Please sign in to comment.