File Coverage

blib/lib/App/authkeymgr.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	16	0.0
condition	0	7	0.0
subroutine	6	8	75.0
pod	0	1	0.0
total	24	66	36.3

package App::authkeymgr;
our $VERSION = '0.011';

use 5.10.1;
use strict;
use warnings;

use Carp;

use File::Find;
use File::Spec;

sub findkeys {
  my ($keydir, $exts, $nodeep) = @_;

  croak "findkeys called with no keydir"
    unless defined $keydir;

  croak "findkeys called against non-directory $keydir"
    unless -d $keydir;

  $exts = [ qw/pub pubkey/ ]
    unless $exts and ref $exts eq 'ARRAY';

  my @found;
  if ($nodeep) {
    opendir(my $dirh, $keydir) || croak "opendir failed: $!";
    while (my $maybekey = readdir($dirh)) {
      next if index($maybekey, '.') == 0;
      my $thisext = (split /\./, $maybekey)[-1] // next;
      push(@found, File::Spec->catfile($keydir, $maybekey))
        if $thisext ~~ @$exts;
    }
    closedir($dirh);
  } else {
    find(sub {
        my $thisext = (split /\./)[-1] // return;
        push(@found, $File::Find::name)
          if $thisext ~~ @$exts;
      },
      $keydir
    );
  }

  return @found
}


1;
__END__