view release on metacpan or  search on metacpan

lib/Acme/Text/Rhombus.pm  view on Meta::CPAN

sub rhombus_digit
{
    my %opts = @_;

    my $lines   = $get_opt->(\%opts, 'lines',   qr/^\d+$/,    LINES);
    my $digit   = $get_opt->(\%opts, 'digit',   qr/^\d$/,         0);
    my $fillup  = $get_opt->(\%opts, 'fillup',  qr/^\S$/,    FILLUP);
    my $forward = $get_opt->(\%opts, 'forward', qr/^[01]$/, FORWARD);

    return _draw_rhombus('digit', $lines, $digit, undef, $fillup, $forward);
}

sub rhombus_random
{
    my %opts = @_;

    my $lines  = $get_opt->(\%opts, 'lines',  qr/^\d+$/,  LINES);
    my $fillup = $get_opt->(\%opts, 'fillup', qr/^\S$/,  FILLUP);

    return _draw_rhombus('random', $lines, undef, undef, $fillup, undef);
}

1;
__END__

=head1 NAME

Acme::Text::Rhombus - Draw a rhombus with letters/digits

=head1 SYNOPSIS