File Coverage

blib/lib/Banal/Dist/Util.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	7	8	87.5
pod	0	1	0.0
total	27	38	71.0

use 5.014;  # because we use the 'state' and  'non-destructive substitution' feature (s///r)
use strict;
use warnings;

package Banal::Dist::Util; # git description: v0.003-2-g3efaa56
# vim: set ts=2 sts=2 sw=2 tw=115 et :
# ABSTRACT: General purpose utility collection mainly used by
# KEYWORDS: author utility

our $VERSION = '0.004';
# AUTHORITY


use Path::Tiny        qw(path);
use Data::Printer;                  # DEBUG aid.

use Exporter::Shiny qw( pause_config );

use namespace::autoclean;


# return username, password from ~/.pause
sub pause_config_alt  # Hmmm. We've got a similar named routine in *::Pause.pm
{
    my $file = path($ENV{HOME} // 'oops', '.pause');
    return if not -e $file;

    my ($username, $password) = map {
        my (undef, $val) = split ' ', $_; $val  # awk-style whitespace splitting
    } $file->lines;
}







1;

__END__