App-ruler

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        Result:

         ".........|10.......|20.......|30.......|40.......|50.......|60.......|70.......|80.......|90.......|100......|110......|120......|130......|140......|150......|160......|170......|180......|19"

    *   White ruler with red marks and numbers:

         ruler(
         background_color     => "black on_white",
           major_tick_color     => "red on_white",
           minor_tick_character => "",
           number_color         => "bold red on_white"
         );

        Result:

         "\e[30;47m---------\e[0m\e[31;47m|\e[0m\e[1;31;47m10\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m20\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m30\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m40\e[0m\e[30;47m-------\e[0m\...

    This function is not exported by default, but exportable.

    Arguments ('*' denotes required arguments):

lib/App/ruler.pm  view on Meta::CPAN

        {
            summary => 'Default ruler (dash + number every 10 characters)',
            args => {},
        },
        {
            summary => 'White ruler with red marks and numbers',
            args => {
                background_color => "black on_white",
                minor_tick_character => '',
                major_tick_color => "red on_white",
                number_color => "bold red on_white",
            },
        },
    ],
};
sub ruler {
    my %args = @_;

    my $ruler_len = $args{length} // $term_width;
    my $use_color;

lib/App/ruler.pm  view on Meta::CPAN

Result:

 ".........|10.......|20.......|30.......|40.......|50.......|60.......|70.......|80.......|90.......|100......|110......|120......|130......|140......|150......|160......|170......|180......|19"

=item * White ruler with red marks and numbers:

 ruler(
 background_color     => "black on_white",
   major_tick_color     => "red on_white",
   minor_tick_character => "",
   number_color         => "bold red on_white"
 );

Result:

 "\e[30;47m---------\e[0m\e[31;47m|\e[0m\e[1;31;47m10\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m20\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m30\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m40\e[0m\e[30;47m-------\e[0m\e[31;47m...

=back

This function is not exported by default, but exportable.

script/ruler  view on Meta::CPAN


Examples:

Default ruler (dash + number every 10 characters):

 % ruler
 .........|10.......|20.......|30.......|40.......|50.......|60.......|70.......|80.......|90.......|100......|110......|120......|130......|140......|150......|160......|170......|180......|19

White ruler with red marks and numbers:

 % ruler --background-color 'black on_white' --major-tick-color 'red on_white' --minor-tick-character '' --number-color 'bold red on_white'
 ---------|10-------|20-------|30-------|40-------|50[30;47...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over



( run in 0.732 second using v1.01-cache-2.11-cpan-5dc5da66d9d )