File Coverage

blib/lib/Git/PurePerl/Walker/Role/OnCommit.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1 6     6   3271 use 5.006; # our
  6         15  
2 6     6   44 use strict;
  6         7  
  6         118  
3 6     6   20 use warnings;
  6         6  
  6         414  
4              
5             package Git::PurePerl::Walker::Role::OnCommit;
6              
7             our $VERSION = '0.004001';
8              
9             # ABSTRACT: An event to execute when a commit is encountered
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 6     6   1210 use Moose::Role qw( with requires );
  6         308322  
  6         44  
14              
15              
16              
17              
18              
19              
20              
21             with 'Git::PurePerl::Walker::Role::HasRepo';
22              
23              
24              
25              
26              
27              
28              
29              
30              
31              
32              
33              
34              
35              
36              
37              
38              
39              
40              
41              
42              
43              
44              
45              
46              
47              
48              
49              
50              
51              
52              
53              
54              
55             requires 'handle';
56              
57              
58              
59              
60              
61              
62              
63              
64              
65             requires 'reset';
66 6     6   18393 no Moose::Role;
  6         9  
  6         23  
67             1;
68              
69             __END__
70              
71             =pod
72              
73             =encoding UTF-8
74              
75             =head1 NAME
76              
77             Git::PurePerl::Walker::Role::OnCommit - An event to execute when a commit is encountered
78              
79             =head1 VERSION
80              
81             version 0.004001
82              
83             =head1 REQUIRES METHODS
84              
85             =head2 handle
86              
87             This is the primary event that is triggered when every commit is processed.
88              
89             C<handle> is passed a L<<
90             C<Git::PurePerl::B<Object::Commit>>|Git::PurePerl::Object::Commmit >> for you to
91             do something with.
92              
93             $object->handle( $commit )
94              
95             =head2 reset
96              
97             This method is signaled when the associated repository is resetting its iteration.
98              
99             You can either no-op this, or make it do something useful.
100              
101             =head1 INHERITED METHODS
102              
103             =head2 for_repository
104              
105             L<< C<Git::PurePerl::B<Walker::Role::HasRepo>-E<gt>I<for_repository( $repo )>>|Git::PurePerl::Walker::Role::HasRepo/for_repository >>
106              
107             =head2 clone
108              
109             L<< C<MooseX::B<Clone>-E<gt>I<clone( %params )>>|MooseX::Clone/clone-params >>
110              
111             =head2 _repo
112              
113             L<< C<Git::PurePerl::B<Walker::Role::HasRepo>-E<gt>I<_repo( $repo )>>|Git::PurePerl::Walker::Role::HasRepo/_repo >>
114              
115             =head1 CONSUMED ROLES
116              
117             =head2 Git::PurePerl::Walker::Role::HasRepo
118              
119             L<< C<Git::PurePerl::B<Walker::Role::HasRepo>>|Git::PurePerl::Walker::Role::HasRepo >>
120              
121             =head1 AUTHOR
122              
123             Kent Fredric <kentnl@cpan.org>
124              
125             =head1 COPYRIGHT AND LICENSE
126              
127             This software is copyright (c) 2017 by Kent Fredric <kentnl@cpan.org>.
128              
129             This is free software; you can redistribute it and/or modify it under
130             the same terms as the Perl 5 programming language system itself.
131              
132             =cut