13 lines
212 B
Perl
13 lines
212 B
Perl
|
package 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;
|