App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
# [$Levels{$_} > $Current_Level ? $sub0 : $sub1, "log_is_$_", $Levels{$_}, 'is_sub'],# [$sub0, $_, $Levels{$_}, 'log_method'],# [$Levels{$_} > $Current_Level ? $sub0 : $sub1, "is_$_", $Levels{$_}, 'is_method'],# )} keys %Levels),# ];#}##sub get_logger {# my ($package, %args) = @_;## my $caller = caller(0);# $args{category} = $caller if !defined($args{category});# my $obj = []; $obj =~ $re_addr;# my $pkg = "Log::ger::Obj$1"; bless $obj, $pkg;# add_target(object => $obj, \%args);# if (keys %Global_Hooks) {# require Log::ger::Heavy;# init_target(object => $obj, \%args);# } else {# _set_default_null_routines();# install_routines(object => $obj, $default_null_routines);# }# $obj;#}##sub import {# my ($package, %args) = @_;## my $caller = caller(0);# $args{category} = $caller if !defined($args{category});# add_target(package => $caller, \%args);# if (keys %Global_Hooks) {# require Log::ger::Heavy;# init_target(package => $caller, \%args);# } else {# _set_default_null_routines();# install_routines(package => $caller, $default_null_routines);# }#}
script/_genpw-base56 view on Meta::CPAN
#sub set_for_current_package {# my $pkg = shift;## my %args;# if (ref $_[0] eq 'HASH') {# %args = %{shift()};# } else {# %args = (name => shift, conf => {@_});# }## my $caller = caller(0);# $args{target} = 'package';# $args{target_arg} = $caller;## set($pkg, \%args);#}##sub _import_sets_for_current_package { 0 }##sub _replace_package_regex { undef }#
script/_genpw-base56 view on Meta::CPAN
# v => 1.1,# summary => 'Helper when writing functions',#};##our $STACK_TRACE;#our @_c;#our $_i;#sub err {# require Scalar::Util;## my @caller = CORE::caller(1);# if (!@caller) {# @caller = ("main", "-e", 1, "program");# }## my ($status, $msg, $meta, $prev);## for (@_) {# my $ref = ref($_);# if ($ref eq 'ARRAY') { $prev = $_ }# elsif ($ref eq 'HASH') { $meta = $_ }
script/_genpw-base56 view on Meta::CPAN
# last unless $STACK_TRACE // $INC{"Carp/Always.pm"};# last if $prev && ref($prev->[3]) eq 'HASH' &&# ref($prev->[3]{logs}) eq 'ARRAY' &&# ref($prev->[3]{logs}[0]) eq 'HASH' &&# $prev->[3]{logs}[0]{stack_trace};# $stack_trace = [];# $_i = 1;# while (1) {# {# package DB;# @_c = CORE::caller($_i);# if (@_c) {# $_c[4] = [@DB::args];# }# }# last unless @_c;# push @$stack_trace, [@_c];# $_i++;# }# }# push @{ $meta->{logs} }, {
script/_genpw-base56 view on Meta::CPAN
# my $n = $n0 // 0;## my $pkg = $Perinci::Sub::Wrapper::default_wrapped_package //# 'Perinci::Sub::Wrapped';## my @r;# my $i = 0;# my $j = -1;# while ($i <= $n+1) {# $j++;# @r = CORE::caller($j);# last unless @r;# if ($r[0] eq $pkg && $r[1] =~ /^\(eval /) {# next;# }# $i++;# }## return unless @r;# return defined($n0) ? @r : $r[0];#}
script/_genpw-base56 view on Meta::CPAN
# require Function::Fallback::CoreOrPP;## my %args = @_;## my ($base_code, $base_meta);# if ($args{base_name}) {# my ($pkg, $leaf);# if ($args{base_name} =~ /(.+)::(.+)/) {# ($pkg, $leaf) = ($1, $2);# } else {# $pkg = CORE::caller();# $leaf = $args{base_name};# }# no strict 'refs';# $base_code = \&{"$pkg\::$leaf"};# $base_meta = ${"$pkg\::SPEC"}{$leaf};# die "Can't find Rinci metadata for $pkg\::$leaf" unless $base_meta;# } elsif ($args{base_meta}) {# $base_meta = $args{base_meta};# $base_code = $args{base_code}# or die "Please specify base_code";
script/_genpw-base56 view on Meta::CPAN
# }# if ($args{modify_meta}) {# $args{modify_meta}->($output_meta);# }## if ($args{output_name}) {# my ($pkg, $leaf);# if ($args{output_name} =~ /(.+)::(.+)/) {# ($pkg, $leaf) = ($1, $2);# } else {# $pkg = CORE::caller();# $leaf = $args{output_name};# }# no strict 'refs';# no warnings 'redefine';# *{"$pkg\::$leaf"} = $output_code if $args{install_sub} // 1;# ${"$pkg\::SPEC"}{$leaf} = $output_meta;# }## [200, "OK", {code=>$output_code, meta=>$output_meta}];#}
script/_genpw-base56 view on Meta::CPAN
# req => 1,# pos => 2,# },# },# args_as => 'array',# result_naked => 1,#};#sub gen_curried_sub {# my ($base_name, $set_args, $output_name) = @_;## my $caller = CORE::caller();## my ($base_pkg, $base_leaf);# if ($base_name =~ /(.+)::(.+)/) {# ($base_pkg, $base_leaf) = ($1, $2);# } else {# $base_pkg = $caller;# $base_leaf = $base_name;# }## my ($output_pkg, $output_leaf);
script/_genpw-base56 view on Meta::CPAN
## if ($func_name =~ /(.+)::(.+)/) {# return ${"$1::SPEC"}{$2};# } else {# return ${"$caller->[0]::SPEC"}{$func_name};# }#}##sub func_args_by_tag {# my ($func_name, $args, $tag) = @_;# my $meta = _find_meta([caller(1)], $func_name)# or die "Can't find Rinci function metadata for $func_name";# args_by_tag($meta, $args, $tag);#}##sub func_argnames_by_tag {# my ($func_name, $tag) = @_;# my $meta = _find_meta([caller(1)], $func_name)# or die "Can't find Rinci function metadata for $func_name";# argnames_by_tag($meta, $tag);#}##sub call_with_its_args {# my ($func_name, $args) = @_;## my ($meta, $func);# if ($func_name =~ /(.+)::(.+)/) {# defined &{$func_name}# or die "Function $func_name not defined";# $func = \&{$func_name};# $meta = ${"$1::SPEC"}{$2};# } else {# my @caller = caller(1);# my $fullname = "$caller[0]::$func_name";# defined &{$fullname}# or die "Function $fullname not defined";# $func = \&{$fullname};# $meta = ${"$caller[0]::SPEC"}{$func_name};# }# $meta or die "Can't find Rinci function metadata for $func_name";## my @args;# if ($meta->{args}) {
( run in 0.346 second using v1.01-cache-2.11-cpan-3fc6ead820a )