File Coverage

blib/lib/Audio/Nama/Wav.pm

Criterion	Covered	Total	%
statement	21	58	36.2
branch	0	6	0.0
condition	0	6	0.0
subroutine	7	14	50.0
pod	0	5	0.0
total	28	89	31.4

package Audio::Nama::Wav;
our $VERSION = 1.0;
use Audio::Nama::Assign qw(:all);
use Audio::Nama::Util qw(join_path);
use Audio::Nama::Log qw(logsub logpkg);
use Memoize qw(memoize unmemoize); # called by code in Audio::Nama::Memoize.pm
use warnings;
no warnings qw(uninitialized);
use Carp;

sub get_versions {
	my %args = @_;
	$args{sep} //= '_';
	$args{ext} //= 'wav';
	my ($sep, $ext) = ($args{sep}, $args{ext});
	my ($dir, $basename) = ($args{dir}, $args{name});
	logpkg(__FILE__,__LINE__,'debug',"getver: dir $dir basename $basename sep $sep ext $ext");
	my %versions = ();
	for my $candidate ( candidates($dir) ) {
	#	logpkg(__FILE__,__LINE__,'debug',"candidate: $candidate");

		my( $match, $dummy, $num) =
			( $candidate =~ m/^ ( $basename
			   ($sep (\d+))?
			   \.$ext )
			  $/x
			  ); # regex statement
		if ( $match ) { $versions{ $num || 'bare' } =  $match }
	}
	logpkg(__FILE__,__LINE__,'debug',sub{"get_version: " , Audio::Nama::json_out(\%versions)});
	%versions;
}

sub candidates {
	my $dir = shift;
	$dir =  File::Spec::Link->resolve_all( $dir );
	opendir my $wavdir, $dir or die "cannot open $dir: $!";
	my @candidates = readdir $wavdir;
	closedir $wavdir;
	@candidates = grep{ ! (-s join_path($dir, $_) == 44 ) } @candidates;
	#logpkg(__FILE__,__LINE__,'debug',join $/, @candidates);
	@candidates;
}

sub targets {

	my %args = @_;

#	$Audio::Nama::debug2 and print "&targets\n";

		my %versions =  get_versions(%args);
		if ($versions{bare}) {  $versions{1} = $versions{bare};
			delete $versions{bare};
		}
	logpkg(__FILE__,__LINE__,'debug',sub{"\%versions\n================\n", json_out(\%versions)});
	\%versions;
}


sub versions {
#	$Audio::Nama::debug2 and print "&versions\n";
	my %args = @_;
	[ sort { $a <=> $b } keys %{ targets(%args)} ]
}
sub last {
	%args = @_;
	pop @{ versions(%args) }
}

1;