File Coverage

lib/Git/Wrapper/Plus/Versions.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	40	40	100.0

line	stmt	sub	pod	time	code
1	10	10		37815	use 5.008; # utf8
	10			39
	10			463
2	10	10		62	use strict;
	10			24
	10			514
3	10	10		55	use warnings;
	10			23
	10			311
4	10	10		4043	use utf8;
	10			31
	10			109
5
6					package Git::Wrapper::Plus::Versions;
7					$Git::Wrapper::Plus::Versions::VERSION = '0.004010';
8					# ABSTRACT: Analyze and compare git versions
9
10					our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
11
12
13
14
15
16
17
18
19
20
21
22
23
24	10	10		4650	use Moo qw( has );
	10			60667
	10			96
25	10	10		13300	use Sort::Versions qw( versioncmp );
	10			5938
	10			5351
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					has git => required => 1, is => ro =>;
55
56
57
58
59
60
61
62					sub current_version {
63	39	39	1	258	my ($self) = @_;
64	39			455	return $self->git->version;
65					}
66
67
68
69
70
71
72
73
74
75
76
77					sub newer_than {
78	37	37	1	30787	my ( $self, $v ) = @_;
79	37			201	return versioncmp( $self->current_version, $v ) >= 0;
80					}
81
82
83
84
85
86
87
88
89
90
91
92					sub older_than {
93	1	1	1	8	my ( $self, $v ) = @_;
94	1			13	return versioncmp( $self->current_version, $v ) < 0;
95					}
96
97	10	10		76	no Moo;
	10			22
	10			67
98					1;
99
100					__END__