File Coverage

blib/lib/OPM/Maker/Utils.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	19	20	95.0
condition	10	10	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	73	74	98.6

package OPM::Maker::Utils;
$OPM::Maker::Utils::VERSION = '1.15';
# ABSTRACT: Utility functions for OPM::Maker

use strict;
use warnings;

use Exporter 'import';

use File::Find::Rule;

our @EXPORT_OK = qw(
    reformat_size
    check_args_sopm
);

sub reformat_size {
    my ($size) = @_;

    $size =~ m{\A(?[0-9]+)(?[MmGgKk])?\z};

    return 0 if !$+{count};

    my $unit = lc( $+{unit} // 'b' );

    my $factor =
        $unit eq 'k' ? 1024 :
            $unit eq 'm' ? 1024 * 1024 :
                $unit eq 'g' ? 1024 * 1024 * 1024:
                1;
    ;

    return $+{count} * $factor;
}

sub check_args_sopm {
    my ($args, $opm) = @_;

    return if $args and 'ARRAY' ne ref $args;

    my $sopm = $args->[0];

    my @suffixes = $opm ? ('*.opm', '*.sopm') : ('*.sopm');

    if ( !$sopm ) {
        my @all_sopm = map {
            $_ =~ s{\A\.[/\\]}{};
            $_;
        } File::Find::Rule->file->name(@suffixes)->maxdepth(1)->in('.');

        die 'Found more than one .sopm file' if @all_sopm > 1;

        $sopm = $all_sopm[0];
    }

    $sopm //= '';

    my $re = $opm ? 's?opm' : 'sopm';
    return if $sopm !~ m{\.$re\z} or !-f $sopm;

    return $sopm;
}

1;

__END__