package DBIx::QuickDB::Util;
use strict;
use warnings;
our $VERSION = '0.000037';
use IPC::Cmd qw/can_run/;
use Carp qw/confess/;
use Importer Importer => 'import';
our @EXPORT_OK = qw/clone_dir strip_hash_defaults/;
my ($RSYNC, $CP);
BEGIN {
    local $@;
    $RSYNC = can_run('rsync');
    $CP    = can_run('cp');
}
sub clone_dir {
    return _clone_dir_rsync(@_) if $RSYNC;
    return _clone_dir_cp(@_)    if $CP;
    return _clone_dir_fcr(@_);
}
sub _clone_dir_rsync {
    my ($src, $dest, %params) = @_;
    system($RSYNC, '-a', '--exclude' => '.nfs*', $params{verbose} ? ( '-vP' ) : (), "$src/", $dest) and die "$RSYNC returned $?";
}
sub _clone_dir_cp {
    my ($src, $dest, %params) = @_;
    system($CP, '-a', $params{verbose} ? ( '-v' ) : (), "$src/", $dest) and die "$CP returned $?";
}
sub _clone_dir_fcr {
    my ($src, $dest, %params) = @_;
    require File::Copy::Recursive;
    File::Copy::Recursive::dircopy($src, $dest) or die "$!";
}
sub strip_hash_defaults {
    my ($hash, $defaults) = @_;
    my $out = {%$hash};
    for my $key (keys %$defaults) {
        my $refout = ref($out->{$key});
        my $refdef = ref($defaults->{$key});
        if ($refout eq $refdef && $refdef eq 'HASH') {
            $out->{$key} = strip_hash_defaults($out->{$key}, $defaults->{$key});
            next;
        }
        if ($refout ne $refdef) {
            delete $out->{$key};
            next;
        }
        no warnings 'numeric';
        delete $out->{$key} if $out->{$key} && $out->{$key} eq $defaults->{$key};
    }
    return $out;
}
1;