File Coverage

blib/lib/App/Randf.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	4	6	66.6
condition	3	6	50.0
subroutine	7	9	77.7
pod	1	1	100.0
total	38	48	79.1

package App::Randf;
use strict;
use warnings;
use Getopt::Long qw/GetOptionsFromArray/;

our $VERSION = '0.01';

sub run {
    my $self = shift;
    my @argv = @_;

    my $config = +{};
    _merge_opt($config, @argv);

    _main($config);
}

sub _main {
    my $config = shift;

    while (my $stdin = ) {
        print $stdin if !$config->{per} || $config->{per}*100 > rand(10000);
    }
}

sub _merge_opt {
    my ($config, @argv) = @_;

    GetOptionsFromArray(
        \@argv,
        'p|per=i' => \$config->{per},
        'h|help'  => sub {
            _show_usage(1);
        },
        'v|version' => sub {
            print "$0 $VERSION\n";
            exit 1;
        },
    ) or _show_usage(2);

    $config->{per} = shift @argv if scalar @argv > 0 && !$config->{per};
}

sub _show_usage {
    my $exitval = shift;

    require Pod::Usage;
    Pod::Usage::pod2usage(-exitval => $exitval);
}

1;

__END__