File Coverage

blib/lib/Path/Util.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch	0	4	0.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	19	25	76.0

package Path::Util;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-07-05'; # DATE
our $DIST = 'Path-Util'; # DIST
our $VERSION = '0.000002'; # VERSION

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(
                       basename
);

sub basename {
    require File::Spec;

    my ($path, @suffixes) = @_;

    # TODO: we haven't canonicalize foo/bar/ -> foo/bar so basename(foo/bar/) ->
    # ''.

    my (undef, undef, $file) = File::Spec->splitpath($path);
    for my $s (@suffixes) {
        my $re = ref($s) eq 'Regexp' ? qr/$s$/ : qr/\Q$s\E$/;
        last if $file =~ s/$re//;
    }
    $file;
}

1;
# ABSTRACT: Path functions

__END__