File Coverage

blib/lib/Bio/MUST/Drivers/Utils.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition	0	5	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	33	60.6

package Bio::MUST::Drivers::Utils;
# ABSTRACT: Utility functions for drivers
$Bio::MUST::Drivers::Utils::VERSION = '0.191910';
use strict;
use warnings;
use autodie;
use feature qw(say);

use Exporter::Easy (
    OK   => [ qw(stringify_args) ],
);


# TODO: add function for redirecting to /dev/null

sub stringify_args {
    my $args = shift // {};

    my @cli_args = map {                        # concat opts with args and
        join q{ }, $_, ( $args->{$_} // () )    # append boolean flags without
    } keys %{$args};                            # adding extra whitespace
    my $args_str = join q{ }, @cli_args;

    return $args_str;
}

1;

__END__

=pod

=head1 NAME

Bio::MUST::Drivers::Utils - Utility functions for drivers

=head1 VERSION

version 0.191910

=head1 SYNOPSIS

    # TODO

=head1 DESCRIPTION

    # TODO

=head1 AUTHOR

Denis BAURAIN <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by University of Liege / Unit of Eukaryotic Phylogenomics / Denis BAURAIN.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut