File Coverage

blib/lib/Group/Git/Taggers.pm
Criterion Covered Total %
statement 24 29 82.7
branch 0 2 0.0
condition n/a
subroutine 8 10 80.0
pod n/a
total 32 41 78.0


line stmt bran cond sub pod time code
1             package Group::Git::Taggers;
2              
3             # Created on: 2015-04-04 22:02:08
4             # Create by: Ivan Wills
5             # $Id$
6             # $Revision$, $HeadURL$, $Date$
7             # $Revision$, $Source$, $Date$
8              
9 1     1   847 use Moo;
  1         3  
  1         8  
10 1     1   2925 use strict;
  1         4  
  1         25  
11 1     1   6 use warnings;
  1         3  
  1         40  
12 1     1   6 use namespace::autoclean;
  1         4  
  1         13  
13 1     1   89 use version;
  1         4  
  1         13  
14 1     1   91 use Carp;
  1         2  
  1         91  
15 1     1   5 use English qw/ -no_match_vars /;
  1         3  
  1         10  
16 1     1   536 use File::chdir;
  1         3  
  1         282  
17              
18             our $VERSION = version->new('0.7.6');
19              
20             sub matches {
21 0     0     my ($self, $project) = @_;
22              
23 0 0         return if !-d $project;
24              
25 0           local $CWD = $project;
26              
27 0           return $self->match($project);
28             }
29              
30             sub match {
31 0     0     die "Matches not yet implemented for " . (ref $_[0]) . "!\n";
32             }
33              
34             __PACKAGE__->meta->make_immutable;
35              
36             1;
37              
38             __END__
39              
40             =head1 NAME
41              
42             Group::Git::Taggers - Base for individual auto tagger classes
43              
44             =head1 VERSION
45              
46             This documentation refers to Group::Git::Taggers version 0.0.1
47              
48             =head1 SYNOPSIS
49              
50             use Group::Git::Taggers;
51              
52             # Brief but working code example(s) here showing the most common usage(s)
53             # This section will be as far as many users bother reading, so make it as
54             # educational and exemplary as possible.
55              
56              
57             =head1 DESCRIPTION
58              
59             Other tagger may base them selves on this class
60              
61             =head1 SUBROUTINES/METHODS
62              
63             =head2 C<matches ($project)>
64              
65             Checks that the project exists and changes to it before calling match
66              
67             =head2 C<match ($project)>
68              
69             Just dies telling the child class to implement
70              
71             =head1 DIAGNOSTICS
72              
73             =head1 CONFIGURATION AND ENVIRONMENT
74              
75             =head1 DEPENDENCIES
76              
77             =head1 INCOMPATIBILITIES
78              
79             =head1 BUGS AND LIMITATIONS
80              
81             There are no known bugs in this module.
82              
83             Please report problems to Ivan Wills (ivan.wills@gmail.com).
84              
85             Patches are welcome.
86              
87             =head1 AUTHOR
88              
89             Ivan Wills - (ivan.wills@gmail.com)
90              
91             =head1 LICENSE AND COPYRIGHT
92              
93             Copyright (c) 2015 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
94             All rights reserved.
95              
96             This module is free software; you can redistribute it and/or modify it under
97             the same terms as Perl itself. See L<perlartistic>. This program is
98             distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
99             without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
100             PARTICULAR PURPOSE.
101              
102             =cut