File Coverage

blib/lib/Git/Wrapper/Plus/Versions.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	35	35	100.0

line	stmt	sub	pod	time	code
1	10	10		10566	use 5.006; # our
	10			25
2	10	10		39	use strict;
	10			9
	10			202
3	10	10		32	use warnings;
	10			8
	10			570
4
5					package Git::Wrapper::Plus::Versions;
6
7					our $VERSION = '0.004011';
8
9					# ABSTRACT: Analyze and compare git versions
10
11					our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12
13
14
15
16
17
18
19
20
21
22
23
24
25	10	10		505	use Moo qw( has );
	10			10000
	10			56
26	10	10		5350	use Sort::Versions qw( versioncmp );
	10			2821
	10			1662
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					has git => required => 1, is => ro =>;
56
57
58
59
60
61
62
63					sub current_version {
64	38	38	1	54	my ($self) = @_;
65	38			297	return $self->git->version;
66					}
67
68
69
70
71
72
73
74
75
76
77
78					sub newer_than {
79	36	36	1	7937	my ( $self, $v ) = @_;
80	36			134	return versioncmp( $self->current_version, $v ) >= 0;
81					}
82
83
84
85
86
87
88
89
90
91
92
93					sub older_than {
94	1	1	1	3	my ( $self, $v ) = @_;
95	1			5	return versioncmp( $self->current_version, $v ) < 0;
96					}
97
98	10	10		51	no Moo;
	10			13
	10			40
99					1;
100
101					__END__