File Coverage

blib/lib/GeNUScreen/Config/Diff.pm

Criterion	Covered	Total	%
statement	29	38	76.3
branch	1	2	50.0
condition	6	12	50.0
subroutine	7	10	70.0
pod	5	6	83.3
total	48	68	70.5

# vim: set ts=4 sw=4 tw=78 et si:
#
package GeNUScreen::Config::Diff;

use warnings;
use strict;
use Carp;

my $re_cfgval  = qr/\S.*/;
my $re_cfgvar  = qr/[0-9a-z_]+/i;
my $re_cfgpath = qr/$re_cfgvar(?:\.$re_cfgvar)*/;
my $re_marker  = qr/[a-z]+/i;

use Class::Std;
{
    # storage for attributes
    my %diff : ATTR;

    sub BUILD {
        my ($self, $ident, $args_ref) = @_;

        $diff{ident $self} = {};
    } # BUILD()

    sub compare {
        my ($self,$this,$that) = @_;

        my %d;
        my %all_keys = ();

        foreach my $k ($this->get_keys()) {$all_keys{$k} = 1};
        foreach my $k ($that->get_keys()) {$all_keys{$k} = 1};

        foreach my $k (keys %all_keys) {
            my $thisval = $this->get_value($k);
            my $thatval = $that->get_value($k);

            unless ((not defined $thisval and not defined $thatval)
                    or (defined $thisval and defined $thatval
                        and $thisval eq $thatval)
                   ) {
                $d{$k}->{this} = $thisval;
                $d{$k}->{that} = $thatval;
            }
        }
        $diff{ident $self} = \%d;
    } # compare()

    sub get_keys {
        my ($self) = @_;

        return keys %{$diff{ident $self}};
    } # get_keys()

    sub get_that_value {
        my ($self,$key) = @_;

        return $diff{ident $self}->{$key}->{that};
    } # get_that_value()

    sub get_this_value {
        my ($self,$key) = @_;

        return $diff{ident $self}->{$key}->{this};
    } # get_this_value()

    sub is_empty {
        my ($self) = @_;

        return 0 == scalar keys %{$diff{ident $self}};
    }

} # package GeNUScreen::Config::Diff

1; # Magic true value required at end of module
__END__