2022-10-18 12:30:02 -05:00
|
|
|
package unix_dog::Util;
|
2022-10-18 12:13:00 -05:00
|
|
|
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;
|
