File Coverage

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

use 5.006;    # our
use strict;
use warnings;

package CPAN::Meta::Prereqs::Diff::Downgrade;

our $VERSION = '0.001003';

# ABSTRACT: A dependency which changes its requirements to an older version

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Moo qw( with has extends );

extends 'CPAN::Meta::Prereqs::Diff::Change';







sub is_downgrade { return 1 }









sub describe {
  my ($self) = @_;
  return sprintf q[%s.%s: vvv %s %s -> %s], $self->phase, $self->type, $self->module, $self->old_requirement,
    $self->new_requirement;
}

no Moo;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

CPAN::Meta::Prereqs::Diff::Downgrade - A dependency which changes its requirements to an older version

=head1 VERSION

version 0.001003

=head1 METHODS

=head2 C<is_downgrade>

  returns true

=head2 C<describe>

  $object->describe();

  # runtime.requires: vvv ExtUtils::MakeMaker 5.1 -> 5.0

=head1 AUTHOR

Kent Fredric <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Kent Fredric <[e-mail]>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut