mirror of
https://github.com/mpv-player/mpv
synced 2024-12-25 16:22:01 +00:00
38 lines
744 B
Perl
38 lines
744 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
# ABSTRACT: internally-used helper functions
|
||
|
|
package Parse::Matroska::Utils;
|
||
|
|
|
||
|
|
use Exporter;
|
||
|
|
our @ISA = qw{Exporter};
|
||
|
|
our @EXPORT_OK = qw{uniq uncamelize};
|
||
|
|
|
||
|
|
=method uniq(@array)
|
||
|
|
|
||
|
|
The same as L<List::MoreUtils/"uniq LIST">.
|
||
|
|
Included to avoid depending on it since it's
|
||
|
|
not a core module.
|
||
|
|
|
||
|
|
=cut
|
||
|
|
sub uniq(@) {
|
||
|
|
my %seen;
|
||
|
|
return grep { !$seen{$_}++ } @_;
|
||
|
|
}
|
||
|
|
|
||
|
|
=method uncamelize($string)
|
||
|
|
|
||
|
|
Converts a "StringLikeTHIS" into a
|
||
|
|
"string_like_this".
|
||
|
|
|
||
|
|
=cut
|
||
|
|
sub uncamelize($) {
|
||
|
|
local $_ = shift;
|
||
|
|
# lc followed by UC: lc_UC
|
||
|
|
s/(?<=[a-z])([A-Z])/_\L$1/g;
|
||
|
|
# UC followed by two lc: _UClclc
|
||
|
|
s/([A-Z])(?=[a-z]{2})/_\L$1/g;
|
||
|
|
# strip leading _ that the second regexp might add; lowercase all
|
||
|
|
s/^_//; lc
|
||
|
|
}
|