File Coverage

blib/lib/Tangerine/Utils.pm

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

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

our $vre = qr/^($version::LAX)$/o;

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 {
            s/^\s+|\s+$//sgor
        } @_;
    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__