File Coverage

blib/lib/Group/Git/Taggers/Remote.pm
Criterion Covered Total %
statement 21 25 84.0
branch n/a
condition n/a
subroutine 7 8 87.5
pod n/a
total 28 33 84.8


line stmt bran cond sub pod time code
1             package Group::Git::Taggers::Remote;
2              
3             # Created on: 2015-04-05 06:07:47
4             # Create by: Ivan Wills
5             # $Id$
6             # $Revision$, $HeadURL$, $Date$
7             # $Revision$, $Source$, $Date$
8              
9 1     1   861 use Moo;
  1         2  
  1         6  
10 1     1   2588 use strict;
  1         3  
  1         21  
11 1     1   5 use warnings;
  1         2  
  1         25  
12 1     1   6 use namespace::autoclean;
  1         2  
  1         6  
13 1     1   86 use version;
  1         3  
  1         6  
14 1     1   102 use Carp;
  1         2  
  1         66  
15 1     1   7 use English qw/ -no_match_vars /;
  1         2  
  1         6  
16              
17             extends 'Group::Git::Taggers';
18              
19             our $VERSION = version->new('0.7.7');
20              
21             sub match {
22 0     0     my ($self, $project) = @_;
23              
24 0           my $remote = `git remote`;
25 0           chomp $remote;
26              
27 0           return !!$remote;
28             }
29              
30             __PACKAGE__->meta->make_immutable;
31              
32             1;
33              
34             __END__
35              
36             =head1 NAME
37              
38             Group::Git::Taggers::Remote - Sets tags for repositories with remotes
39              
40             =head1 VERSION
41              
42             This documentation refers to Group::Git::Taggers::Remote version 0.0.1
43              
44             =head1 SYNOPSIS
45              
46             use Group::Git::Taggers::Remote;
47              
48             # Brief but working code example(s) here showing the most common usage(s)
49             # This section will be as far as many users bother reading, so make it as
50             # educational and exemplary as possible.
51              
52              
53             =head1 DESCRIPTION
54              
55             Determines if a repository has any remotes defined
56              
57             =head1 SUBROUTINES/METHODS
58              
59             =head2 C<match ($repository)>
60              
61             Returns true if the repository has a remote defined
62              
63             =head1 DIAGNOSTICS
64              
65             =head1 CONFIGURATION AND ENVIRONMENT
66              
67             =head1 DEPENDENCIES
68              
69             =head1 INCOMPATIBILITIES
70              
71             =head1 BUGS AND LIMITATIONS
72              
73             There are no known bugs in this module.
74              
75             Please report problems to Ivan Wills (ivan.wills@gmail.com).
76              
77             Patches are welcome.
78              
79             =head1 AUTHOR
80              
81             Ivan Wills - (ivan.wills@gmail.com)
82              
83             =head1 LICENSE AND COPYRIGHT
84              
85             Copyright (c) 2015 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
86             All rights reserved.
87              
88             This module is free software; you can redistribute it and/or modify it under
89             the same terms as Perl itself. See L<perlartistic>. This program is
90             distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
91             without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
92             PARTICULAR PURPOSE.
93              
94             =cut