File Coverage

blib/lib/Parse/Matroska/Utils.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	24	24	100.0

use strict;
use warnings;

# ABSTRACT: internally-used helper functions
package Parse::Matroska::Utils;
{
  $Parse::Matroska::Utils::VERSION = '0.003';
}

use Exporter;
our @ISA       = qw{Exporter};
our @EXPORT_OK = qw{uniq uncamelize};

sub uniq(@) {
  my %seen;
  return grep { !$seen{$_}++ } @_;
}

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
}

__END__