App-EscapeUtils

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.002   2019-12-15  Released-By: PERLANCAR; Urgency: medium

	- Add utilities: pod-escape, perl-dquote-escape,
	  perl-squote-escape.


0.001   2016-11-26  Released-By: PERLANCAR

        - First release.

MANIFEST  view on Meta::CPAN

# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.012.
Changes
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
dist.ini
lib/App/EscapeUtils.pm
script/backslash-escape
script/backslash-unescape
script/html-escape
script/html-unescape
script/js-escape
script/js-unescape
script/perl-dquote-escape
script/perl-squote-escape
script/pod-escape
script/shell-escape
script/uri-escape
script/uri-unescape
t/00-compile.t
t/author-critic.t
t/author-pod-coverage.t
t/author-pod-syntax.t
t/release-rinci.t
weaver.ini

META.json  view on Meta::CPAN

      }
   },
   "version" : "0.002",
   "x_Dist_Zilla" : {
      "perl" : {
         "version" : "5.030000"
      },
      "plugins" : [
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript backslash-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript backslash-unescape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript html-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript html-unescape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript js-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript js-unescape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript perl-dquote-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript perl-squote-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript pod-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript shell-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript uri-escape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenPericmdScript",
            "name" : "GenPericmdScript uri-unescape",
            "version" : "0.421"
         },
         {
            "class" : "Dist::Zilla::Plugin::InsertExecsList",
            "name" : "InsertExecsList",
            "version" : "0.02"
         },
         {
            "class" : "Dist::Zilla::Plugin::GatherDir",
            "config" : {

META.yml  view on Meta::CPAN

  bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=App-EscapeUtils
  homepage: https://metacpan.org/release/App-EscapeUtils
  repository: git://github.com/perlancar/perl-App-EscapeUtils.git
version: '0.002'
x_Dist_Zilla:
  perl:
    version: '5.030000'
  plugins:
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript backslash-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript backslash-unescape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript html-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript html-unescape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript js-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript js-unescape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript perl-dquote-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript perl-squote-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript pod-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript shell-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript uri-escape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::GenPericmdScript
      name: 'GenPericmdScript uri-unescape'
      version: '0.421'
    -
      class: Dist::Zilla::Plugin::InsertExecsList
      name: InsertExecsList
      version: '0.02'
    -
      class: Dist::Zilla::Plugin::GatherDir
      config:
        Dist::Zilla::Plugin::GatherDir:
          exclude_filename: []

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;

my %WriteMakefileArgs = (
  "ABSTRACT" => "Various string escaping/unescaping utilities",
  "AUTHOR" => "perlancar <perlancar\@cpan.org>",
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "App-EscapeUtils",
  "EXE_FILES" => [
    "script/backslash-escape",
    "script/backslash-unescape",
    "script/html-escape",
    "script/html-unescape",
    "script/js-escape",
    "script/js-unescape",
    "script/perl-dquote-escape",
    "script/perl-squote-escape",
    "script/pod-escape",
    "script/shell-escape",
    "script/uri-escape",
    "script/uri-unescape"
  ],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.010001",
  "NAME" => "App::EscapeUtils",
  "PREREQ_PM" => {
    "Data::Sah::Compiler::perl::TH::array" => 0,
    "Data::Sah::Compiler::perl::TH::str" => 0,
    "HTML::Entities" => 0,
    "Perinci::CmdLine::Any" => 0,
    "Perinci::CmdLine::Lite" => "1.820",

README  view on Meta::CPAN

NAME
    App::EscapeUtils - Various string escaping/unescaping utilities

VERSION
    This document describes version 0.002 of App::EscapeUtils (from Perl
    distribution App-EscapeUtils), released on 2019-12-15.

DESCRIPTION
    This distributions provides the following command-line utilities:

    *   backslash-escape

    *   backslash-unescape

    *   html-escape

    *   html-unescape

    *   js-escape

    *   js-unescape

    *   perl-dquote-escape

    *   perl-squote-escape

    *   pod-escape

    *   shell-escape

    *   uri-escape

    *   uri-unescape

FUNCTIONS
  backslash_escape
    Usage:

     backslash_escape(%args) -> [status, msg, payload, meta]

    Escape lines of input using backslash octal sequence (or \r, \n, \t).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  backslash_unescape
    Usage:

     backslash_unescape(%args) -> [status, msg, payload, meta]

    Restore backslash octal sequence (or \r, \n, \t) to original characters
    in lines of input (in stdin or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

README  view on Meta::CPAN


    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  html_escape
    Usage:

     html_escape(%args) -> [status, msg, payload, meta]

    HTML-escape lines of input (in stdin or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  html_unescape
    Usage:

     html_unescape(%args) -> [status, msg, payload, meta]

    HTML-unescape lines of input (in stdin or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  js_escape
    Usage:

     js_escape(%args) -> [status, msg, payload, meta]

    Encode lines of input (in standard input or arguments) as JSON strings.

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  js_unescape
    Usage:

     js_unescape(%args) -> [status, msg, payload, meta]

    Interpret lines of input (in standard input or arguments) as JSON
    strings and return the decoded value.

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

README  view on Meta::CPAN


    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  perl_dquote_escape
    Usage:

     perl_dquote_escape(%args) -> [status, msg, payload, meta]

    Encode lines of input (in stdin or arguments) inside Perl double-quoted
    strings.

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

README  view on Meta::CPAN


    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  perl_squote_escape
    Usage:

     perl_squote_escape(%args) -> [status, msg, payload, meta]

    Encode lines of input (in stdin or arguments) inside Perl single-quoted
    strings.

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

README  view on Meta::CPAN


    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  pod_escape
    Usage:

     pod_escape(%args) -> [status, msg, payload, meta]

    Quote POD special characters in input (in stdin or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  shell_escape
    Usage:

     shell_escape(%args) -> [status, msg, payload, meta]

    Shell-escape lines of input (in stdin or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  uri_escape
    Usage:

     uri_escape(%args) -> [status, msg, payload, meta]

    URI-escape lines of input (in standard input or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is
    a string containing error message, or 'OK' if status is 200. Third
    element (payload) is optional, the actual result. Fourth element (meta)
    is called result metadata and is optional, a hash that contains extra
    information.

    Return value: (str)

  uri_unescape
    Usage:

     uri_unescape(%args) -> [status, msg, payload, meta]

    URI-unescape lines of input (in standard input or arguments).

    This function is not exported.

    Arguments ('*' denotes required arguments):

    *   strings* => *array[str]*

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200

dist.ini  view on Meta::CPAN

version=0.002

name=App-EscapeUtils

[GenPericmdScript / GenPericmdScript backslash-escape]
url=/App/EscapeUtils/backslash_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript backslash-unescape]
url=/App/EscapeUtils/backslash_unescape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript html-escape]
url=/App/EscapeUtils/html_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript html-unescape]
url=/App/EscapeUtils/html_unescape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript js-escape]
url=/App/EscapeUtils/js_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript js-unescape]
url=/App/EscapeUtils/js_unescape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript perl-dquote-escape]
url=/App/EscapeUtils/perl_dquote_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript perl-squote-escape]
url=/App/EscapeUtils/perl_squote_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript pod-escape]
url=/App/EscapeUtils/pod_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript shell-escape]
url=/App/EscapeUtils/shell_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript uri-escape]
url=/App/EscapeUtils/uri_escape
read_config=0
read_env=0

[GenPericmdScript / GenPericmdScript uri-unescape]
url=/App/EscapeUtils/uri_unescape
read_config=0
read_env=0

[InsertExecsList]

[@Author::PERLANCAR]
:version=0.598

[Prereqs]
perl=5.010001

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

        'x.name.singular' => 'string',
        schema => ['array*', of=>'str*'],
        req => 1,
        pos => 0,
        greedy => 1,
        cmdline_src => 'stdin_or_args',
        stream => 1,
    },
);

$SPEC{uri_escape} = {
    v => 1.1,
    summary => 'URI-escape lines of input (in standard input or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub uri_escape {
    require URI::Escape;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return URI::Escape::uri_escape($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{uri_unescape} = {
    v => 1.1,
    summary => 'URI-unescape lines of input (in standard input or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub uri_unescape {
    require URI::Escape;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return URI::Escape::uri_unescape($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{js_escape} = {
    v => 1.1,
    summary => 'Encode lines of input (in standard input or arguments) '.
        'as JSON strings',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub js_escape {
    require String::JS;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::JS::encode_js_string($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{js_unescape} = {
    v => 1.1,
    summary => 'Interpret lines of input (in standard input or arguments) as '.
        'JSON strings and return the decoded value',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub js_unescape {
    require String::JS;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::JS::decode_js_string($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{backslash_escape} = {
    v => 1.1,
    summary => 'Escape lines of input using backslash octal sequence '.
        '(or \\r, \\n, \\t)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub backslash_escape {
    require String::Escape;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::Escape::backslash($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{backslash_unescape} = {
    v => 1.1,
    summary => 'Restore backslash octal sequence (or \\r, \\n, \\t) to '.
        'original characters in lines of input (in stdin or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub backslash_unescape {
    require String::Escape;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::Escape::unbackslash($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{html_escape} = {
    v => 1.1,
    summary => 'HTML-escape lines of input (in stdin or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub html_escape {
    require HTML::Entities;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return HTML::Entities::encode_entities($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{html_unescape} = {
    v => 1.1,
    summary => 'HTML-unescape lines of input (in stdin or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub html_unescape {
    require HTML::Entities;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return HTML::Entities::decode_entities($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{shell_escape} = {
    v => 1.1,
    summary => 'Shell-escape lines of input (in stdin or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub shell_escape {
    require ShellQuote::Any::Tiny;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return ShellQuote::Any::Tiny::shell_quote($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{pod_escape} = {
    v => 1.1,
    summary => 'Quote POD special characters in input (in stdin or arguments)',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub pod_escape {
    require String::PodQuote;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::PodQuote::pod_quote($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{perl_dquote_escape} = {
    v => 1.1,
    summary => 'Encode lines of input (in stdin or arguments) inside Perl double-quoted strings',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub perl_dquote_escape {
    require String::PerlQuote;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::PerlQuote::double_quote($str);
        } else {
            return undef;
        }
    };

    return [200, "OK", $cb];
}

$SPEC{perl_squote_escape} = {
    v => 1.1,
    summary => 'Encode lines of input (in stdin or arguments) inside Perl single-quoted strings',
    args => {
        %arg_strings,
    },
    result => {
        schema => 'str*',
        stream => 1,
    },
};
sub perl_squote_escape {
    require String::PerlQuote;

    my %args = @_;

    my $strings = $args{strings};
    my $cb = sub {
        my $str = $strings->();
        if (defined $str) {
            return String::PerlQuote::single_quote($str);
        } else {

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

=head1 VERSION

This document describes version 0.002 of App::EscapeUtils (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 DESCRIPTION

This distributions provides the following command-line utilities:

=over

=item * L<backslash-escape>

=item * L<backslash-unescape>

=item * L<html-escape>

=item * L<html-unescape>

=item * L<js-escape>

=item * L<js-unescape>

=item * L<perl-dquote-escape>

=item * L<perl-squote-escape>

=item * L<pod-escape>

=item * L<shell-escape>

=item * L<uri-escape>

=item * L<uri-unescape>

=back

=head1 FUNCTIONS


=head2 backslash_escape

Usage:

 backslash_escape(%args) -> [status, msg, payload, meta]

Escape lines of input using backslash octal sequence (or \r, \n, \t).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 backslash_unescape

Usage:

 backslash_unescape(%args) -> [status, msg, payload, meta]

Restore backslash octal sequence (or \r, \n, \t) to original characters in lines of input (in stdin or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 html_escape

Usage:

 html_escape(%args) -> [status, msg, payload, meta]

HTML-escape lines of input (in stdin or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

=back

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 html_unescape

Usage:

 html_unescape(%args) -> [status, msg, payload, meta]

HTML-unescape lines of input (in stdin or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

=back

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 js_escape

Usage:

 js_escape(%args) -> [status, msg, payload, meta]

Encode lines of input (in standard input or arguments) as JSON strings.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 js_unescape

Usage:

 js_unescape(%args) -> [status, msg, payload, meta]

Interpret lines of input (in standard input or arguments) as JSON strings and return the decoded value.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 perl_dquote_escape

Usage:

 perl_dquote_escape(%args) -> [status, msg, payload, meta]

Encode lines of input (in stdin or arguments) inside Perl double-quoted strings.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 perl_squote_escape

Usage:

 perl_squote_escape(%args) -> [status, msg, payload, meta]

Encode lines of input (in stdin or arguments) inside Perl single-quoted strings.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 pod_escape

Usage:

 pod_escape(%args) -> [status, msg, payload, meta]

Quote POD special characters in input (in stdin or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 shell_escape

Usage:

 shell_escape(%args) -> [status, msg, payload, meta]

Shell-escape lines of input (in stdin or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

=back

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 uri_escape

Usage:

 uri_escape(%args) -> [status, msg, payload, meta]

URI-escape lines of input (in standard input or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

=back

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

(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (payload) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.

Return value:  (str)



=head2 uri_unescape

Usage:

 uri_unescape(%args) -> [status, msg, payload, meta]

URI-unescape lines of input (in standard input or arguments).

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<strings>* => I<array[str]>

=back

script/backslash-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/backslash_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/backslash_escape",
    program_name => "backslash-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Escape lines of input using backslash octal sequence (or \r, \n, \t)
# PODNAME: backslash-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

backslash-escape - Escape lines of input using backslash octal sequence (or \r, \n, \t)

=head1 VERSION

This document describes version 0.002 of backslash-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % backslash-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/backslash-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C backslash-escape backslash-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete backslash-escape 'p/*/`backslash-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/backslash-unescape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/backslash_unescape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/backslash_unescape",
    program_name => "backslash-unescape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Restore backslash octal sequence (or \r, \n, \t) to original characters in lines of input (in stdin or arguments)
# PODNAME: backslash-unescape

__END__

=pod

=encoding UTF-8

=head1 NAME

backslash-unescape - Restore backslash octal sequence (or \r, \n, \t) to original characters in lines of input (in stdin or arguments)

=head1 VERSION

This document describes version 0.002 of backslash-unescape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % backslash-unescape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/backslash-unescape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C backslash-unescape backslash-unescape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete backslash-unescape 'p/*/`backslash-unescape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/html-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/html_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/html_escape",
    program_name => "html-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: HTML-escape lines of input (in stdin or arguments)
# PODNAME: html-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

html-escape - HTML-escape lines of input (in stdin or arguments)

=head1 VERSION

This document describes version 0.002 of html-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % html-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/html-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C html-escape html-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete html-escape 'p/*/`html-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/html-unescape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/html_unescape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/html_unescape",
    program_name => "html-unescape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: HTML-unescape lines of input (in stdin or arguments)
# PODNAME: html-unescape

__END__

=pod

=encoding UTF-8

=head1 NAME

html-unescape - HTML-unescape lines of input (in stdin or arguments)

=head1 VERSION

This document describes version 0.002 of html-unescape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % html-unescape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/html-unescape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C html-unescape html-unescape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete html-unescape 'p/*/`html-unescape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/js-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/js_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/js_escape",
    program_name => "js-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Encode lines of input (in standard input or arguments) as JSON strings
# PODNAME: js-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

js-escape - Encode lines of input (in standard input or arguments) as JSON strings

=head1 VERSION

This document describes version 0.002 of js-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % js-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/js-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C js-escape js-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete js-escape 'p/*/`js-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/js-unescape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/js_unescape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/js_unescape",
    program_name => "js-unescape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Interpret lines of input (in standard input or arguments) as JSON strings and return the decoded value
# PODNAME: js-unescape

__END__

=pod

=encoding UTF-8

=head1 NAME

js-unescape - Interpret lines of input (in standard input or arguments) as JSON strings and return the decoded value

=head1 VERSION

This document describes version 0.002 of js-unescape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % js-unescape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/js-unescape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C js-unescape js-unescape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete js-unescape 'p/*/`js-unescape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/perl-dquote-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/perl_dquote_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/perl_dquote_escape",
    program_name => "perl-dquote-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Encode lines of input (in stdin or arguments) inside Perl double-quoted strings
# PODNAME: perl-dquote-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

perl-dquote-escape - Encode lines of input (in stdin or arguments) inside Perl double-quoted strings

=head1 VERSION

This document describes version 0.002 of perl-dquote-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % perl-dquote-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/perl-dquote-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C perl-dquote-escape perl-dquote-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete perl-dquote-escape 'p/*/`perl-dquote-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/perl-squote-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/perl_squote_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/perl_squote_escape",
    program_name => "perl-squote-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Encode lines of input (in stdin or arguments) inside Perl single-quoted strings
# PODNAME: perl-squote-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

perl-squote-escape - Encode lines of input (in stdin or arguments) inside Perl single-quoted strings

=head1 VERSION

This document describes version 0.002 of perl-squote-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % perl-squote-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/perl-squote-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C perl-squote-escape perl-squote-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete perl-squote-escape 'p/*/`perl-squote-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/pod-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/pod_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/pod_escape",
    program_name => "pod-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Quote POD special characters in input (in stdin or arguments)
# PODNAME: pod-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

pod-escape - Quote POD special characters in input (in stdin or arguments)

=head1 VERSION

This document describes version 0.002 of pod-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % pod-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/pod-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C pod-escape pod-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete pod-escape 'p/*/`pod-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/shell-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/shell_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/shell_escape",
    program_name => "shell-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Shell-escape lines of input (in stdin or arguments)
# PODNAME: shell-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

shell-escape - Shell-escape lines of input (in stdin or arguments)

=head1 VERSION

This document describes version 0.002 of shell-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % shell-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/shell-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C shell-escape shell-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete shell-escape 'p/*/`shell-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/uri-escape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/uri_escape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/uri_escape",
    program_name => "uri-escape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: URI-escape lines of input (in standard input or arguments)
# PODNAME: uri-escape

__END__

=pod

=encoding UTF-8

=head1 NAME

uri-escape - URI-escape lines of input (in standard input or arguments)

=head1 VERSION

This document describes version 0.002 of uri-escape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % uri-escape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/uri-escape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C uri-escape uri-escape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete uri-escape 'p/*/`uri-escape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

script/uri-unescape  view on Meta::CPAN

#!perl

# Note: This script is a CLI for Riap function /App/EscapeUtils/uri_unescape
# and generated automatically using Perinci::CmdLine::Gen version 0.491

our $DATE = '2019-12-15'; # DATE
our $DIST = 'App-EscapeUtils'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Perinci::CmdLine::Any;

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/EscapeUtils/uri_unescape",
    program_name => "uri-unescape",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: URI-unescape lines of input (in standard input or arguments)
# PODNAME: uri-unescape

__END__

=pod

=encoding UTF-8

=head1 NAME

uri-unescape - URI-unescape lines of input (in standard input or arguments)

=head1 VERSION

This document describes version 0.002 of uri-unescape (from Perl distribution App-EscapeUtils), released on 2019-12-15.

=head1 SYNOPSIS

Usage:

 % uri-unescape [options] <string> ...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--string>=I<s@>*

script/uri-unescape  view on Meta::CPAN


=head1 COMPLETION

This script has shell tab completion capability with support for several
shells.

=head2 bash

To activate bash completion for this script, put:

 complete -C uri-unescape uri-unescape

in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.

=head2 tcsh

To activate tcsh completion for this script, put:

 complete uri-unescape 'p/*/`uri-unescape`/'

in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.

It is also recommended to install L<shcompgen> (see above).

=head2 other shells

For fish and zsh, install L<shcompgen> as described above.

t/00-compile.t  view on Meta::CPAN


use Test::More;

plan tests => 13 + ($ENV{AUTHOR_TESTING} ? 1 : 0);

my @module_files = (
    'App/EscapeUtils.pm'
);

my @scripts = (
    'script/backslash-escape',
    'script/backslash-unescape',
    'script/html-escape',
    'script/html-unescape',
    'script/js-escape',
    'script/js-unescape',
    'script/perl-dquote-escape',
    'script/perl-squote-escape',
    'script/pod-escape',
    'script/shell-escape',
    'script/uri-escape',
    'script/uri-unescape'
);

# no fake home requested

my @switches = (
    -d 'blib' ? '-Mblib' : '-Ilib',
);

use File::Spec;
use IPC::Open3;

t/author-critic.t  view on Meta::CPAN

}


use strict;
use warnings;

# this test was generated with Dist::Zilla::Plugin::Test::Perl::Critic::Subset 3.001.003

use Test::Perl::Critic (-profile => "") x!! -e "";

my $filenames = ['lib/App/EscapeUtils.pm','script/backslash-escape','script/backslash-unescape','script/html-escape','script/html-unescape','script/js-escape','script/js-unescape','script/perl-dquote-escape','script/perl-squote-escape','script/pod-es...
unless ($filenames && @$filenames) {
    $filenames = -d "blib" ? ["blib"] : ["lib"];
}

all_critic_ok(@$filenames);



( run in 0.581 second using v1.01-cache-2.11-cpan-c21f80fb71c )