view release on metacpan or  search on metacpan

script/acme-cpanauthors  view on Meta::CPAN

#!perl

### begin code_after_shebang
# Note: This script is a CLI for Riap function /App/AcmeCpanauthors/acme_cpanauthors
# and generated automatically using Perinci::CmdLine::Gen version 0.502

### end code_after_shebang
# PERICMD_INLINE_SCRIPT: {"code_after_shebang":"...","config_dirs":null,"config_filename":"acme-cpanauthors.conf","env_name":"ACME_CPANAUTHORS_OPT","include":["App::AcmeCpanauthors"],"log":null,"pack_deps":1,"pod":0,"read_config":1,"read_env":1,"scri...

# This script is generated by Perinci::CmdLine::Inline version 0.554 on Sat Jun 17 09:02:58 2023.

# Rinci metadata taken from these modules: App::AcmeCpanauthors (no version)

# You probably should not manually edit this file.

## no critic: TestingAndDebugging::RequireUseStrict

# PODNAME: acme-cpanauthors
# ABSTRACT: Unofficial CLI for Acme::CPANAuthors

# BEGIN DATAPACK CODE
package main::_DataPacker;
our $handler;
sub main::_DataPacker::INC { goto $handler }

package main;
{
    my $toc;
    my $data_linepos = 1;
    $main::_DataPacker::handler = sub {
        my $debug = $ENV{PERL_DATAPACKER_DEBUG};
        if ($debug) {
            my @caller0 = caller;
            warn "[datapacker] Hook called with arguments: (".join(",", @_).") by package $caller0[0] in file $caller0[1] line $caller0[2]\n";
        }

        $toc ||= do {

            my $fh = \*DATA;

        my $header_line;
        my $header_found;
        while (1) {
            my $header_line = <$fh>;
            defined($header_line)
                or die "Unexpected end of data section while reading header line";
            chomp($header_line);
            if ($header_line eq 'Data::Section::Seekable v1') {
                $header_found++;
                last;
            }
        }
        die "Can't find header 'Data::Section::Seekable v1'"
            unless $header_found;

        my %toc;
        my $i = 0;
        while (1) {
            $i++;
            my $toc_line = <$fh>;
            defined($toc_line)
                or die "Unexpected end of data section while reading TOC line #$i";
            chomp($toc_line);
            $toc_line =~ /\S/ or last;
            $toc_line =~ /^([^,]+),(\d+),(\d+)(?:,(.*))?$/
                or die "Invalid TOC line #$i in data section: $toc_line";
            $toc{$1} = [$2, $3, $4];
        }
        my $pos = tell $fh;
        $toc{$_}[0] += $pos for keys %toc;


            # calculate the line number of data section
            my $data_pos = tell(DATA);

script/acme-cpanauthors  view on Meta::CPAN

#
#=item * base
#
#Str. Might be undef. The outermost base schema (or type) that can be used as
#"base restriction", meaning its restrictions (clause sets) must all be
#fulfilled. After this base's clause sets, the next additional clause sets will
#not contain any merge prefixes. Because if additional clause sets contained
#merge prefixes, they could modify or remove restrictions set by the base instead
#of just adding more restrictions (which is the whole point of merging).
#
#=item * clsets_after_base
#
#Clause sets after the "base restriction" base. This is additional restrictions
#that are imposed to the restrictions of the base schema. They do not contain
#merge prefixes.
#
#=item * resolve_path
#
#Array. This is a list of schema type names or builtin type names, from the
#deepest to the shallowest. The first element of this arrayref is the builtin Sah
#type and the last element is the original unresolved schema's type.
#
#=back
#
#=head1 HOMEPAGE
#
#Please visit the project's homepage at L<https://metacpan.org/release/Data-Sah-Resolve>.
#
#=head1 SOURCE
#
#Source repository is at L<https://github.com/perlancar/perl-Data-Sah-Resolve>.
#
#=head1 BUGS
#
#Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Data-Sah-Resolve>
#
#When submitting a bug or request, please include a test-file or a
#patch to an existing test-file that illustrates the bug or desired
#feature.
#
#=head1 SEE ALSO
#
#L<Sah>, L<Data::Sah>
#
#=head1 AUTHOR
#
#perlancar <perlancar@cpan.org>
#
#=head1 COPYRIGHT AND LICENSE
#
#This software is copyright (c) 2021, 2017, 2016 by perlancar@cpan.org.
#
#This is free software; you can redistribute it and/or modify it under
#the same terms as the Perl 5 programming language system itself.
#
#=cut
### Data/Sah/Type/BaseType.pm ###
#package Data::Sah::Type::BaseType;
#
## why name it BaseType instead of Base? because I'm sick of having 5 files named
## Base.pm in my editor (there would be Type::Base and the various
## Compiler::*::Type::Base).
#
#use 5.010;
#use strict;
#use warnings;
#
#use Data::Sah::Util::Role 'has_clause';
#use Role::Tiny;
##use Sah::Schema::Common;
##use Sah::Schema::Sah;
#
#our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
#our $DATE = '2022-10-19'; # DATE
#our $DIST = 'Data-Sah'; # DIST
#our $VERSION = '0.914'; # VERSION
#
#our $sch_filter_elem = ['any', {of=>[
#    ['str', {req=>1}],
#    ['array', {req=>1, len=>2, elems=>[ ['str',{req=>1}], ['hash',{req=>1}] ]}],
#]}];
#
#requires 'handle_type';
#
#has_clause 'v',
#    v => 2,
#    prio   => 0,
#    tags   => ['meta', 'defhash'],
#    schema => ['float'=>{req=>1, is=>1}],
#    ;
#
#has_clause 'defhash_v',
#    v => 2,
#    prio   => 0,
#    tags   => ['meta', 'defhash'],
#    schema => ['float'=>{req=>1, is=>1}],
#    ;
#
#has_clause 'schema_v',
#    v => 2,
#    prio   => 0,
#    tags   => ['meta'],
#    schema => ['float'=>{req=>1}],
#    ;
#
#has_clause 'base_v',
#    v => 2,
#    prio   => 0,
#    tags   => ['meta'],
#    schema => ['float'=>{req=>1}],
#    ;
#
#has_clause 'ok',
#    v => 2,
#    tags       => ['constraint'],
#    prio       => 1,
#    schema     => ['any', {}],
#    allow_expr => 1,
#    ;
#has_clause 'default',
#    v => 2,