website/lib/unix_dog/Util.pm

12 lines
221 B
Perl

package unix_dog::Util;
use strict;
use warnings FATAL => 'all';
use experimental 'signatures';
sub split_keys($input) {
my @out = split /\R/, $input;
@out = grep (defined && length, @out);
return @out;
}
1;