File Coverage

blib/lib/Gentoo/Util/MetaCPAN/Requirement.pm

Criterion	Covered	Total	%
statement	18	49	36.7
branch	0	10	0.0
condition	0	2	0.0
subroutine	6	12	50.0
pod	1	1	100.0
total	25	74	33.7

use 5.006;
use strict;
use warnings;

package Gentoo::Util::MetaCPAN::Requirement;

our $VERSION = '0.001000'; # TRIAL

# ABSTRACT: A Single dependency requirement specialized for Gentoo

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

use Moo qw( has );
use Gentoo::PerlMod::Version qw( gentooize_version );

has 'module'         => ( is => ro =>, required => 1, );
has 'range'          => ( is => ro =>, required => 1, );
has 'version'        => ( is => ro =>, lazy     => 1, builder => '_build_version' );
has 'gentoo_version' => ( is => ro =>, lazy     => 1, builder => '_build_gentoo_version' );

sub BUILD {
  my ($self) = @_;
  $self->gentoo_version;
  return;
}

sub _has_min_version {
  my ($self) = @_;
  ## no critic (Subroutines::ProtectPrivateSubs)
  return !( $self->range->_accepts(0) );
}

sub _build_version {
  my ($self) = @_;
  return $self->range->as_string;
}

sub _build_gentoo_version {
  my ($self) = @_;
  my $ver;
  ## no critic (ErrorHandling::RequireCheckingReturnValueOfEval)
  eval { $ver = gentooize_version( $self->version, { lax => 1 } ); };
  return $ver;
}

sub _pretty_version {
  my ($version) = @_;
  return eval { gentooize_version( $version, { lax => 1 } ) } || q<?>;
}

sub _pretty {
  my ($self) = @_;
  my $module = $self->module;
  my $range  = $self->range;
  if ( $range->isa('CPAN::Meta::Requirements::_Range::Exact') ) {
    return sprintf '= %s @ %s', $module, _pretty_version( $range->{version} );
  }
  my @out;
  if ( exists $range->{minimum} ) {
    if ( $range->{minimum} != 0 ) {
      push @out, sprintf '>= %s @ %s', $module, _pretty_version( $range->{minimum} );
    }
    else {
      push @out, sprintf '%s', $module;
    }
  }
  if ( exists $range->{maximum} ) {
    push @out, sprintf '<= %s @ %s', $module, _pretty_version( $range->{maximum} );
  }
  if ( exists $range->{exclusions} ) {
    for my $exclusion ( @{ $range->{exclusions} } ) {
      push @out, sprintf '! %s @ %s', $module, _pretty_version( $exclusion, { lax => 1 } );
    }
  }
  return join q[ ], @out;
}

no Moo;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Gentoo::Util::MetaCPAN::Requirement - A Single dependency requirement specialized for Gentoo

=head1 VERSION

version 0.001000

=head1 METHODS

=head2 BUILD

=head2 module

=head2 range

=head1 AUTHOR

Kent Fredric <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 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