File Coverage

blib/lib/Data/Compare/Module.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	8	8	100.0
condition	5	6	83.3
subroutine	8	8	100.0
pod	0	2	0.0
total	65	68	95.5

package Data::Compare::Module;

use strict;
use warnings;
use 5.008_005;
our $VERSION = '0.03';

use List::Compare;

sub compare {
    my @args = @_;
    my $self;
    my ($module_a_name, $module_b_name);
    if (ref $args[0] eq 'Data::Compare::Module') {
        $self = shift @args;
    }
    ($module_a_name, $module_b_name) = @args;
    if (!defined $module_a_name or !defined $module_b_name) {
        ($module_a_name, $module_b_name) = ($self->{mod_a}, $self->{mod_b});
    }
    no strict 'refs';
    my $module_a_space = \%{$module_a_name . "::"};
    my $module_b_space = \%{$module_b_name . "::"};
    use strict 'refs';
    my @keys_a = keys %$module_a_space;
    my @keys_b = keys %$module_b_space;
    my $c = List::Compare->new(\@keys_a, \@keys_b);
    my @only_a = $c->get_Lonly;
    my @only_b = $c->get_Ronly;

    return (\@only_a, \@only_b);
}

sub new {
    my $class = shift;
    my @args = @_;
    if (@args != 0 and @args != 2) {
        die "the constructor must receive 0 or 2 arguments";
    }
    my $self = {};
    if (@args == 2) {
        ($self->{mod_a}, $self->{mod_b}) = @args;
    }
    bless $self, $class;
}

1;
__END__