Acme-ID-CompanyName
view release on metacpan or search on metacpan
lib/Acme/ID/CompanyName.pm view on Meta::CPAN
sintesissolusisolusindosuksessumbersuryatalentataktisteduhteknologitenteramtentramterangterustigatrentujuhtunggalufuk
script/gen-generic-ind-company-names view on Meta::CPAN
#!perl### begin code_after_shebang# Note: This script is a CLI for Riap function /Acme/ID/CompanyName/gen_generic_ind_company_names# and generated automatically using Perinci::CmdLine::Gen version 0.498### end code_after_shebang# PERICMD_INLINE_SCRIPT: {"code_after_shebang":"...","config_dirs":null,"config_filename":"gen-generic-ind-company-names.conf","env_name":"GEN_GENERIC_IND_COMPANY_NAMES_OPT","include":null,"log":null,"pack_deps":1,"pod":0,"read_config":1,"read_env":1...my$_pci_metas= {""=>{args=>{add_prefixes=>{default=>1,schema=>["bool",{req=>1},{}]},add_suffixes=>{default=>1,schema=>["bool",{req=>1},{}]},desired_initials=>{schema=>["str",{match=>qr(\A[A-Za-z]+\z),min_len=>1,req=>1},{}]},num_names=>{cmdline_alia...# This script is generated by Perinci::CmdLine::Inline version 0.551 on Fri May 7 20:03:14 2021.# Rinci metadata taken from these modules: Acme::ID::CompanyName (no version)# You probably should not manually edit this file.our$DATE='2021-05-07';# DATE
script/gen-generic-ind-company-names view on Meta::CPAN
#sub parse_cmdline {# no warnings 'uninitialized';# my ($line, $point, $opts) = @_;## $line //= $ENV{COMP_LINE};# $point //= $ENV{COMP_POINT} // 0;## die "$0: COMP_LINE not set, make sure this script is run under ".# "bash completion (e.g. through complete -C)\n" unless defined $line;## log_trace "[compbash] parse_cmdline(): input: line=<$line> point=<$point>"# if $ENV{COMPLETE_BASH_TRACE};## my @words;# my $cword;# my $pos = 0;# my $pos_min_ws = 0;# my $after_ws = 1; # XXX what does this variable mean?# my $chunk;# my $add_blank;# my $is_cur_word;
script/gen-generic-ind-company-names view on Meta::CPAN
# $after_ws = 1;# } else {# # whitespace# $after_ws = 1;# }# !egx;## $cword //= @words;# $words[$cword] //= '';## log_trace "[compbash] parse_cmdline(): result: words=%s, cword=%s", \@words, $cword# if $ENV{COMPLETE_BASH_TRACE};## [\@words, $cword];#}##$SPEC{join_wordbreak_words} = {# v => 1.1,# summary => 'Post-process parse_cmdline() result by joining some words',# description => <<'_',#
script/gen-generic-ind-company-names view on Meta::CPAN
# }# if ($i+1 < @$words) {# $i++;# $new_words->[-1] .= $words->[$i];# $cword-- if $cword >= $i || $cword >= @$new_words;# }# } else {# push @$new_words, $w;# }# }# log_trace "[compbash] join_wordbreak_words(): result: words=%s, cword=%d", $new_words, $cword# if $ENV{COMPLETE_BASH_TRACE};# [$new_words, $cword];#}##sub _terminal_width {# # XXX need to cache?# if (eval { require Term::Size; 1 }) {# my ($cols, undef) = Term::Size::chars(*STDOUT{IO});# $cols // 80;# } else {
script/gen-generic-ind-company-names view on Meta::CPAN
#The C<right> align will make the completion answer look like what you see in the#B<fish> shell:## --bar Summary about the bar option# --baz Summary about the baz option# --foo Summary about the foo option# --schapen Summary about the schapen option##=head2 COMPLETE_BASH_TRACE##Bool. If set to true, will produce more log statements to L<Log::ger>.##=head1 HOMEPAGE##Please visit the project's homepage at L<https://metacpan.org/release/Complete-Bash>.##=head1 SOURCE##Source repository is at L<https://github.com/perlancar/perl-Complete-Bash>.##=head1 BUGS
script/gen-generic-ind-company-names view on Meta::CPAN
#B<NOTE: Turning this setting off violates IOD specification.>##=head2 enable_tilde => bool (default: 1)##If set to true (the default), then value that starts with C<~> (tilde) will be#assumed to use !path encoding, unless an explicit encoding has been otherwise#specified.##Example:## log_dir = ~/logs ; ~ will be resolved to current user's home directory##With C<enable_tilde> turned off, value will still be literally C<~/logs>.##B<NOTE: Turning this setting off violates IOD specification.>##=head2 allow_encodings => array##If defined, set list of allowed encodings. Note that if C<disallow_encodings> is#also set, an encoding must also not be in that list.##Also note that, for safety reason, if you want to enable C<expr> encoding,#you'll also need to set C<enable_expr> to 1.
script/gen-generic-ind-company-names view on Meta::CPAN
#B<NOTE: Turning this setting off violates IOD specification.>##=head2 enable_tilde => bool (default: 1)##If set to true (the default), then value that starts with C<~> (tilde) will be#assumed to use !path encoding, unless an explicit encoding has been otherwise#specified.##Example:## log_dir = ~/logs ; ~ will be resolved to current user's home directory##With C<enable_tilde> turned off, value will still be literally C<~/logs>.##B<NOTE: Turning this setting off violates IOD specification.>##=head2 allow_encodings => array##If defined, set list of allowed encodings. Note that if C<disallow_encodings> is#also set, an encoding must also not be in that list.##Also note that, for safety reason, if you want to enable C<expr> encoding,#you'll also need to set C<enable_expr> to 1.
script/gen-generic-ind-company-names view on Meta::CPAN
# } elsif ($target_type eq 'hash') {# my ($addr) = "$target_name" =~ $re_addr;# unless ($replace) { return if $Hash_Targets{$addr} }# $Hash_Targets{$addr} = [$target_name, $per_target_conf];# }#}##sub _set_default_null_routines {# $default_null_routines ||= [# (map {(# [$sub0, "log_$_", $Levels{$_}, 'logger_sub'],# [$Levels{$_} > $Current_Level ? $sub0 : $sub1, "log_is_$_", $Levels{$_}, 'level_checker_sub'],# [$sub0, $_, $Levels{$_}, 'logger_method'],# [$Levels{$_} > $Current_Level ? $sub0 : $sub1, "is_$_", $Levels{$_}, 'level_checker_method'],# )} keys %Levels),# ];#}##sub get_logger {# my ($package, %per_target_conf) = @_;## my $caller = caller(0);# $per_target_conf{category} = $caller# if !defined($per_target_conf{category});# my $obj = []; $obj =~ $re_addr;# my $pkg = "Log::ger::Obj$1"; bless $obj, $pkg;# add_target(object => $obj, \%per_target_conf);# if (keys %Global_Hooks) {# require Log::ger::Heavy;
script/gen-generic-ind-company-names view on Meta::CPAN
#}##sub import {# my ($package, %per_target_conf) = @_;## my $caller = caller(0);# $package->_import_to($caller, %per_target_conf);#}##1;## ABSTRACT: A lightweight, flexible logging framework##__END__##=pod##=encoding UTF-8##=head1 NAME##Log::ger - A lightweight, flexible logging framework##=head1 VERSION##version 0.038##=head1 SYNOPSIS##=head2 Producing logs##In your module (producer):## package Foo;# use Log::ger; # will install some logger routines e.g. log_warn, log_error## sub foo {# ...# # produce some logs. no need to configure output or level.# log_error "an error occured: %03d - %s", $errcode, $errmsg;# ...# log_debug "http response: %s", $http; # automatic dumping of data# }# 1;##=head2 Consuming logs##=head3 Choosing an output##In your application (consumer/listener):## use Foo;# use Log::ger::Output 'Screen'; # configure output# # level is by default 'warn'# foo(); # the error message is shown, but debug message is not.##=head3 Choosing multiple outputs##Instead of screen, you can output to multiple outputs (including multiple#files):## use Log::ger::Output 'Composite' => (# outputs => {# Screen => {},# File => [# {conf=>{path=>'/path/to/app.log'}},# ...# ],# ...# },# );##See L<Log::ger::Manual::Tutorial::481_Output_Composite> for more examples.##=head3 Choosing level##One way to set level:## use Log::ger::Util;# Log::ger::Util::set_level('debug'); # be more verbose# foo(); # the error message as well as debug message are now shown##There are better ways, e.g. letting users configure log level via configuration#file or command-line option. See L<Log::ger::Manual::Tutorial::300_Level> for#more details.##=head1 DESCRIPTION##Log::ger is yet another logging framework with the following features:##=over##=item * Separation of producers and consumers/listeners##Like L<Log::Any>, this offers a very easy way for modules to produce some logs#without having to configure anything. Configuring output, level, etc can be done#in the application as log consumers/listeners. To read more about this, see the#documentation of L<Log::Any> or L<Log::ger::Manual> (but nevertheless see#L<Log::ger::Manual> on why you might prefer Log::ger to Log::Any).##=item * Lightweight and fast##B<Slim distribution.> No non-core dependencies, extra functionalities are#provided in separate distributions to be pulled as needed.##B<Low startup overhead.> Only ~0.5-1ms. For comparison, L<strict> ~0.2-0.5ms,#L<warnings> ~2ms, L<Log::Any> (v0.15) ~2-3ms, Log::Any (v1.049) ~8-10ms,#L<Log::Log4perl> ~35ms. This is measured on a 2014-2015 PC and before doing any#output configuration. I strive to make C<use Log::ger;> statement to be roughly#as light as C<use strict;> or C<use warnings;> so the impact of adding the#statement is really minimal and you can just add logging without much thought to#most of your modules. This is important to me because I want logging to be#pervasive.##To test for yourself, try e.g. with L<bencher-code>:## % bencher-code 'use Log::ger' 'use Log::Any' --startup##B<Fast>. Low null-/stealth-logging overhead, about 1.5x faster than Log::Any, 3x#faster than Log4perl, 5x faster than L<Log::Fast>, ~40x faster than#L<Log::Contextual>, and ~100x faster than L<Log::Dispatch>.##For more benchmarks, see L<Bencher::Scenarios::LogGer>.##B<Conditional compilation.> There is a plugin to optimize away unneeded logging#statements, like assertion/conditional compilation, so they have zero runtime#performance cost. See L<Log::ger::Plugin::OptAway>.##Being lightweight means the module can be used more universally, from CLI to#long-running daemons to inside routines with tight loops.##=item * Flexible##B<Customizable levels and routine/method names.> Can be used in a procedural or#OO style. Log::ger can mimic the interface of L<Log::Any>, L<Log::Contextual>,#L<Log::Log4perl>, or some other popular logging frameworks, to ease migration or#adjust with your personal style.##B<Per-package settings.> Each importer package can use its own format/layout,#output. For example, a module that is migrated from Log::Any uses Log::Any-style#logging, while another uses native Log::ger style, and yet some other uses block#formatting like Log::Contextual. This eases code migration and teamwork. Each#module author can preserve her own logging style, if wanted, and all the modules#still use the same framework.##B<Dynamic.> Outputs and levels can be changed anytime during run-time and logger#routines will be updated automatically. This is useful in situation like a#long-running server application: you can turn on tracing logs temporarily to#debug problems, then turn them off again, without restarting your server.##B<Interoperability.> There are modules to interop with Log::Any, either consume#Log::Any logs (see L<Log::Any::Adapter::LogGer>) or produce logs to be consumed#by Log::Any (see L<Log::ger::Output::LogAny>).##B<Many output modules and plugins.> See C<Log::ger::Output::*>,#C<Log::ger::Format::*>, C<Log::ger::Layout::*>, C<Log::ger::Plugin::*>. Writing#an output module in Log::ger is easier than writing a Log::Any::Adapter::*.##=back##For more documentation, start with L<Log::ger::Manual>.##=for Pod::Coverage ^(.+)$##=head1 SEE ALSO##Some other popular logging frameworks: L<Log::Any>, L<Log::Contextual>,#L<Log::Log4perl>, L<Log::Dispatch>, L<Log::Dispatchouli>.##If you still prefer debugging using the good old C<print()>, there's#L<Debug::Print>.##=head1 AUTHOR##perlancar <perlancar@cpan.org>##=head1 COPYRIGHT AND LICENSE
script/gen-generic-ind-company-names view on Meta::CPAN
## my $reader = Config::IOD::Reader->new;# my %res;# my @read;# my %section_read_order;# FILE:# for my $i (0..$#{$paths}) {# my $path = $paths->[$i];# my $filename = $path; $filename =~ s!.*[/\\]!!;# my $wanted_section = $section_config_filename_map{$filename};# log_trace "[pericmd] Reading config file '%s' ...", $path;# my $j = 0;# $section_read_order{GLOBAL} = [$i, $j++];# my @file_sections = ("GLOBAL");# my $hoh = $reader->read_file(# $path,# sub {# my %args = @_;# return unless $args{event} eq 'section';# my $section = $args{section};# push @file_sections, $section
script/gen-generic-ind-company-names view on Meta::CPAN
# for my $section (@file_sections) {# $res{$section} //= {};# my $hash = $hoh->{$section};## my $s = $section; $s =~ s/\s*\S*=.*\z//; # strip key=value pairs# $s = 'GLOBAL' if $s eq '';## if ($args{hook_section}) {# my $res = $args{hook_section}->($section, $hash);# if ($res->[0] == 204) {# log_trace "[pericmd] Skipped config section '$section' ".# "in file '$path': hook_section returns 204";# next SECTION;# } elsif ($res->[0] >= 400 && $res->[0] <= 599) {# return [$res->[0], "Error when reading config file '$path'".# ": $res->[1]"];# }# }## next unless !defined($wanted_section) || $s eq $wanted_section;#
script/gen-generic-ind-company-names view on Meta::CPAN
# $seen_profiles{$keyvals{profile}}++ if defined $keyvals{profile};## my $sect_scn = $keyvals{subcommand} // '';# my $sect_profile = $keyvals{profile};# my $sect_plugin = $keyvals{plugin};## # if there is a subcommand name, use section with no subcommand=... or# # the matching subcommand# if (length $scn) {# if (length($sect_scn) && $sect_scn ne $scn) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "subcommand does not match '$scn'",# );# next;# }# } else {# if (length $sect_scn) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "only for a certain subcommand",# );# next;# }# }## # if user chooses a profile, only use section with no profile=... or the# # matching profile# if (defined $profile) {# if (defined($sect_profile) && $sect_profile ne $profile) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "profile does not match '$profile'",# );# next;# }# $found = 1 if defined($sect_profile) && $sect_profile eq $profile;# } else {# if (defined($sect_profile)) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "only for a certain profile",# );# next;# }# }## # only use section marked with program=... if the program name matches# if (defined($progn) && defined($keyvals{program})) {# if ($progn ne $keyvals{program}) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "program does not match '$progn'",# );# next;# }# }## # if user specifies env=... then apply filtering by ENV variable# if (defined(my $env = $keyvals{env})) {# my ($var, $val);# if (($var, $val) = $env =~ /\A(\w+)=(.*)\z/) {# if (($ENV{$var} // '') ne $val) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "env $var has non-matching value '".# ($ENV{$var} // '')."'",# );# next;# }# } elsif (($var, $val) = $env =~ /\A(\w+)!=(.*)\z/) {# if (($ENV{$var} // '') eq $val) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "env $var has that value",# );# next;# }# } elsif (($var, $val) = $env =~ /\A(\w+)\*=(.*)\z/) {# if (index(($ENV{$var} // ''), $val) < 0) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "env $var has value '".# ($ENV{$var} // '')."' which does not contain the ".# "requested string"# );# next;# }# } else {# if (!$ENV{$env}) {# log_trace(# "[pericmd] Skipped config section '%s' (%s)",# $section0, "env $env is not set/true",# );# next;# }# }# }## log_trace("[pericmd] Reading config section '%s'", $section0);## if (defined $sect_plugin) {# # TODO: check against metadata in plugin# my $event;# my $prio;# my $plugin_args = {};# for my $k (keys %{ $conf->{$section0} }) {# my $v = $conf->{$section0}{$k};# if ($k eq '-event') { $event = $v }# elsif ($k eq '-prio') { $prio = $v }
script/gen-generic-ind-company-names view on Meta::CPAN
# my $rsch = Data::Sah::Resolve::resolve_schema($as->{$k}{schema});# if ($rsch->[0] eq 'array') {# $v = [$v];# }# }# $args->{$k} = $v;# }# } # for params in section# } # if for plugin# }# log_trace("[pericmd] Seen config profiles: %s",# [sort keys %seen_profiles]);## [200, "OK", $args, {'func.found'=>$found}];#}##1;## ABSTRACT: Utility routines related to config files##__END__#
script/gen-generic-ind-company-names view on Meta::CPAN
##Note that everywhere you saw a line on the previous tables,#there will be a space character in this version.#So you may want to combine the C<top_and_tail> option,#to suppress the extra blank lines before and after#the body of the table.###=head1 SEE ALSO##My L<blog post|http://neilb.org/2019/08/06/text-table-tiny-changes.html>#where I described changes to formatting;#this has more examples.##There are many modules for formatting text tables on CPAN.#A good number of them are listed in the#section of the documentation for L<Text::Table::Manifold>.###=head1 REPOSITORY
( run in 0.655 second using v1.01-cache-2.11-cpan-49f99fa48dc )