File Coverage

blib/lib/CPAN/Meta/Prereqs/Diff/Downgrade.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1 5     5   667 use 5.006; # our
  5         12  
2 5     5   22 use strict;
  5         7  
  5         102  
3 5     5   17 use warnings;
  5         5  
  5         300  
4              
5             package CPAN::Meta::Prereqs::Diff::Downgrade;
6              
7             our $VERSION = '0.001004';
8              
9             # ABSTRACT: A dependency which changes its requirements to an older version
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 5     5   754 use Moo qw( with has extends );
  5         14931  
  5         24  
14              
15             extends 'CPAN::Meta::Prereqs::Diff::Change';
16              
17              
18              
19              
20              
21              
22              
23 1     1 1 5 sub is_downgrade { return 1 }
24              
25              
26              
27              
28              
29              
30              
31              
32              
33             sub describe {
34 3     3 1 11 my ($self) = @_;
35 3         51 return sprintf q[%s.%s: vvv %s %s -> %s], $self->phase, $self->type, $self->module, $self->old_requirement,
36             $self->new_requirement;
37             }
38              
39 5     5   2949 no Moo;
  5         8  
  5         23  
40              
41             1;
42              
43             __END__
44              
45             =pod
46              
47             =encoding UTF-8
48              
49             =head1 NAME
50              
51             CPAN::Meta::Prereqs::Diff::Downgrade - A dependency which changes its requirements to an older version
52              
53             =head1 VERSION
54              
55             version 0.001004
56              
57             =head1 METHODS
58              
59             =head2 C<is_downgrade>
60              
61             returns true
62              
63             =head2 C<describe>
64              
65             $object->describe();
66              
67             # runtime.requires: vvv ExtUtils::MakeMaker 5.1 -> 5.0
68              
69             =head1 AUTHOR
70              
71             Kent Fredric <kentnl@cpan.org>
72              
73             =head1 COPYRIGHT AND LICENSE
74              
75             This software is copyright (c) 2017 by Kent Fredric <kentfredric@gmail.com>.
76              
77             This is free software; you can redistribute it and/or modify it under
78             the same terms as the Perl 5 programming language system itself.
79              
80             =cut