view release on metacpan or  search on metacpan

script/list-regexp-pattern-patterns  view on Meta::CPAN

        }
        return {data=>\@res};
    },
);
die "Can't generate function: $res->[0] - $res->[1]" unless $res->[0] == 200;

Perinci::CmdLine::Any->new(
    url => '/main/list_regexp_pattern_patterns',
    read_config => 0,
    read_env => 0,
    use_locale => 1,
)->run;

# ABSTRACT: List Regexp::Pattern::* patterns
# PODNAME: list-regexp-pattern-patterns

__END__

=pod

=encoding UTF-8

script/show-regexp-pattern-module  view on Meta::CPAN

    } else {
        return [400, "Please specify name of a Regexp Pattern module (or -l)"];
    }
}

Perinci::CmdLine::Any->new(
    url => '/main/app',
    pass_cmdline_object => 1,
    read_config => 0,
    read_env => 0,
    use_locale => 1,
)->run;

# ABSTRACT: Show declaration from Regexp::Pattern::* module
# PODNAME: show-regexp-pattern-module

__END__

=pod

=encoding UTF-8