view release on metacpan or  search on metacpan

lib/Kook/Util.pm  view on Meta::CPAN

    return @$buf;
}

sub _flatten {
    my $buf = shift @_;
    for (@_) {
        ref($_) eq 'ARRAY' ? _flatten($buf, @$_) : push(@$buf, $_);
    }
}

sub first(&@) {
    my ($block, @arr) = @_;
    for (@arr) {
        return $_ if $block->($_);
    }
    return;
}

sub glob2 {
    my ($pattern) = @_;
    my @pair = split /\*\*\//, $pattern, 2;