File Coverage

blib/lib/PFT/Util.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	1	2	50.0
total	50	52	96.1

# Copyright 2014-2016 - Giovanni Simoni
#
# This file is part of PFT.
#
# PFT is free software: you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free
# Software Foundation, either version 3 of the License, or (at your
# option) any later version.
#
# PFT is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with PFT.  If not, see .
#
package PFT::Util v1.4.1;

=encoding utf8

=head1 NAME

PFT::Util - Utilities

=head1 DESCRIPTION

This module contains general utility functions.

=cut

use utf8;
use v5.16;
use strict;
use warnings;

use File::Spec;
use Exporter;

use Encode;
use Encode::Locale;

our @EXPORT_OK = qw/
    list_files
/;

=over 1

=item files

List all files under the given directories.

    list_files 'foo' 'bar'

This is definitely off-scope, but some perl modules are really bad.
C is a utter crap! And I don't really want to add more
external deps for such a stupid thing.

Also, this handles encoding according to locale.

=cut

sub list_files {
    my @todo = @_;
    my @out;

    while (@todo) {
        my $dn = pop @todo;
        opendir my $d, encode(locale_fs => $dn) or die "Opening $dn: $!";
        my @content = map decode(locale_fs => $_) => readdir $d;
        foreach (File::Spec->no_upwards(@content)) {
            if (-d (my $dir = File::Spec->catdir($dn, $_))) {
                push @todo, $dir
            } else {
                push @out, File::Spec->catfile($dn, $_)
            }
        }
        closedir $d;
    }

    @out
}

=item locale_glob

A unicode-safe C.

Uses the encoding specified in locale.

This is different from C in that it accepts a list of glob
patterns

=cut

sub locale_glob {
    map decode(locale_fs => $_),
    map CORE::glob,
    map encode(locale_fs => $_),
    @_
}

=back

=cut

1