view release on metacpan or  search on metacpan

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

        {
            summary => 'List available encodings (verbose mode)',
            argv => ["-ll"],
        },
        {
            summary => 'Convert a single text',
            src => "echo 'Foo Bar, Co., Ltd.' | [[prog]]",
            src_plang => "bash",
        },
        {
            summary => 'Convert each line then show result and add to clipboard (required clipadd from App::ClipboardUtils)',
            src => "clipadd -c [[prog]] --tee",
            src_plang => "bash",
            test => 0,
            'x.doc.show_result' => 0,
        },
    ],
};
sub app {
    $num_l_specified = 0;

script/safer  view on Meta::CPAN

 | alphanum_kebab_nodashend_lc | Like alphanum_kebab, but additionally lower case & remove dash at the beginning & end of text, e.g. "Foo Bar, Co., Ltd." -> "foo-bar-co-ltd" |      |
 | alphanum_snake              | Replace sequences of non-alphanumeric characters (including dashes) with a single underscore, e.g. Foo-Bar_Baz!!!Qux-. -> Foo_Bar_Baz_Qux_   | lc   |
 | alphanum_snake_lc           | Like alphanum_snake, but additionally lower case                                                                                             |      |
 +-----------------------------+----------------------------------------------------------------------------------------------------------------------------------------------+------+

=head2 Convert a single text

 % echo 'Foo Bar, Co., Ltd.' | safer
 foo-bar-co-ltd

=head2 Convert each line then show result and add to clipboard (required clipadd from App::ClipboardUtils)

 % clipadd -c safer --tee

=head1 HOMEPAGE

Please visit the project's homepage at L<https://metacpan.org/release/App-safer>.

=head1 SOURCE

Source repository is at L<https://github.com/perlancar/perl-App-safer>.