File Coverage

lib/Git/PurePerl/Walker/Role/OnCommit.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


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