view release on metacpan or  search on metacpan

bin/muter  view on Meta::CPAN

Implements UUencoding.  Note that the "begin" and "end" markers are not emitted.

=head2 vis

Implements the L<vis(3)> function found on the BSDs.  The options supported
correspond directly to the constants that function takes.

The default encoding, if neither C<cstyle> nor C<octal> is specified, is to
encode control characters in the form C<\^C>, control characters with the eighth
bit set in the form C<\M^C>, other characters with the eighth bit in the form
C<\M-C>, and space and meta-space as octal escapes.

The flags C<httpstyle> and C<mimestyle> are not implemented.  Instead, use the
C<uri> and C<quotedprintable> encoders.

=over 4

=item cstyle

Use C-style backslash escapes for common control characters.  Space is encoded
as C<\s>.  NUL is encoded as C<\0> if the next character is not an octal digit
and C<\000> if it is.

=item glob

Encode the characters C<*>, C<?>, C<[> and C<#>, which are recognized by
L<glob(3)>.

=item nl

Encode newline.

=item octal

Encode characters as three-digit octal escapes.

=item sp

=item space

Encode space (U+0020).

=item tab

Encode tab.

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

    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            sp     => 'Encode space',
            space  => 'Encode space',
            tab    => 'Encode tab',
            nl     => 'Encode newline',
            white  => 'Encode space, tab, and newline',
            cstyle => 'Encode using C-like escape sequences',
            octal  => 'Encode using octal escape sequences',
            glob   => 'Encode characters recognized by glob(3) and hash mark',
        }
    };
}

App::Muter::Registry->instance->register(__PACKAGE__);

package App::Muter::Backend::Ascii85;
$App::Muter::Backend::Ascii85::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::Chunked/;