File Coverage

blib/lib/Tangerine/Utils.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	16	16	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	61	61	100.0

package Tangerine::Utils;
$Tangerine::Utils::VERSION = '0.23';
use 5.010;
use strict;
use warnings;
use version 0.77;
use Exporter 'import';
our @EXPORT_OK = qw(accessor addoccurence any none stripquotelike $vre);

our $vre = defined($version::LAX) ?
    qr/^($version::LAX)$/o :
    (defined($version::regex::LAX) ?
        qr/^($version::regex::LAX)$/o :
        qr/^(v?[0-9]+(?:\.[0-9]+)*(?:_[0-9]+)?)$/o );

my $HAVE_LIST_UTIL_133 = eval { require List::Util; List::Util->VERSION(1.33) };
unless ($HAVE_LIST_UTIL_133) { require List::MoreUtils }
*any = $HAVE_LIST_UTIL_133 ? \&List::Util::any : \&List::MoreUtils::any;
*none = $HAVE_LIST_UTIL_133 ? \&List::Util::none : \&List::MoreUtils::none;

sub accessor {
    # TODO: This needs checks
    $_[1]->{$_[0]} = $_[2] ? $_[2] : $_[1]->{$_[0]}
}

sub stripquotelike {
    my @filtered = map {
            if (/^(?:'|").*$/o) {
                substr $_, 1, -1
            } elsif (/^(?:\(|\[|\{).*$/so) {
                stripquotelike(split /,|=>/so, substr $_, 1, -1)
            } elsif (/^qq?\s*[^\w](.*)[^\w]$/so) {
                $1
            } elsif (/^qw\s*[^\w](.*)[^\w]$/so) {
                grep { $_ } split /\s+/so, $1
            } else {
                $_
            }
        } grep {
            1 if !/^(?:,|=>|;|)$/so
        } map {
            (my $trim = $_) =~ s/^\s+|\s+$//sgo; $trim
        } @_;
    return wantarray ? @filtered : $filtered[0];
}

sub addoccurence {
    my ($a, $b) = @_;
    for my $k (keys %$b) {
        if (exists $$a{$k}) {
            $a->{$k} = [ @{$a->{$k}}, $b->{$k} ];
        } else {
            $a->{$k} = [ $b->{$k} ];
        }
    }
    return $a;
}

1;

__END__