File Coverage

blib/lib/Enbld/Condition.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	13	16	81.2
condition	8	9	88.8
subroutine	11	12	91.6
pod	0	9	0.0
total	65	80	81.2

package Enbld::Condition;

use strict;
use warnings;

sub new {
    my $class = shift;

    my $self = {
        version     =>  'latest',
        make_test   =>  undef,
        module_file =>  undef,
        arguments   =>  undef,
        annotation  =>  undef,
        @_,
    };

    bless $self, $class;

    return $self;
}

sub name        { return $_[0]->{name}          }
sub version     { return $_[0]->{version}       }
sub make_test   { return $_[0]->{make_test}     }
sub module_file { return $_[0]->{module_file}   }
sub arguments   { return $_[0]->{arguments}     }
sub annotation  { return $_[0]->{annotation}    }

sub serialize {
    my $self = shift;

    my %serialized;
    foreach my $key ( sort keys %{ $self } ) {
        next if ( ! $self->{$key} );

        $serialized{$key} = $self->{$key};
    }

    return \%serialized;
}

sub is_equal_to {
    my ( $self, $condition ) = @_;

    return unless _is_equal( $self->{version},      $condition->version     );
    return unless _is_equal( $self->{make_test},    $condition->make_test   );
    return unless _is_equal( $self->{arguments},    $condition->arguments   );
    return unless _is_equal( $self->{annotation},   $condition->annotation  );
    return unless _is_equal( $self->{module_file},  $condition->module_file );

    return $self;
}

sub _is_equal {
    my ( $val1, $val2 ) = @_;

    return 1 if ( ( ! defined $val1 ) && ( ! defined $val2 ) );
    return 1 if ( ( defined $val1 && defined $val2 ) && ( $val1 eq $val2 ));

    return;
}

1;