File Coverage

blib/lib/Hash/DefHash/Normalize.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	11	12	91.6
condition	9	10	90.0
subroutine	4	4	100.0
pod	1	1	100.0
total	54	56	96.4

package Hash::DefHash::Normalize;

our $DATE = '2015-04-24'; # DATE
our $VERSION = '0.02'; # VERSION

use 5.010001;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       normalize_defhash
               );

sub normalize_defhash($;$) {
    my ($dh, $opts) = @_;

    $opts //= {};
    $opts->{remove_internal_properties}  //= 0;

    my $opt_rip = $opts->{remove_internal_properties};

    my $ndh = {};

  KEY:
    for my $k (keys %$dh) {
        die "Invalid prop/attr syntax '$k', must be word/dotted-word only"
            unless $k =~ /\A(\w+)(?:\.(\w+(?:\.\w+)*))?(?:\((\w+)\))?\z/;

        my ($prop, $attr);
        if (defined $3) {
            $prop = $1;
            $attr = defined($2) ? "$2.alt.lang.$3" : "alt.lang.$3";
        } else {
            $prop = $1;
            $attr = $2;
        }

        my $nk = "$prop" . (defined($attr) ? ".$attr" : "");

        # strip property/attr started with _
        if ($prop =~ /\A_/ || defined($attr) && $attr =~ /\A_|\._/) {
            unless ($opt_rip) {
                $ndh->{$nk} = $dh->{$k};
            }
            next KEY;
        }

        $ndh->{$nk} = $dh->{$k};
    }

    $ndh;
}

1;
# ABSTRACT: Normalize DefHash

__END__