view release on metacpan or search on metacpan
talk/yaml2hbml.pl view on Meta::CPAN
* easy to extend
}
}
=cut
my $indent = ' ';
sub IN(@) {
my $pad = join '', map{$indent} 1..shift;
my $text = shift || '';
my $trinket = shift || '';
say $pad, $trinket || '', $text =~ m/\n/ ? qq|code{pre{{{$text\n}}}\n}| : $text ;
};
sub is_array ($) {ref(shift) eq 'ARRAY'};
sub is_hash ($) {ref(shift) eq 'HASH'};
sub LI(@) {
my $in = shift;
my $data = shift;
for (@$data) {
is_array $_ ? ROUTINE->( 1+$in => $_)
: is_hash $_ ? ROUTINE->( $in => [%$_])
: IN( $in => $_ => '* ' );
}
}
sub S (@) {
my $title = shift;
IN 1 => 'slide{';
IN 2 => qq|h3{$title}|;
foreach (@_) {
is_array $_ || is_hash $_
view release on metacpan or search on metacpan
lib/Trace/Mask/Test.pm view on Meta::CPAN
test_stack_alter test_stack_shift_and_hide test_stack_shift_short
test_stack_hide_short test_stack_shift_and_alter test_stack_full_combo
test_stack_restart test_stack_special test_stack_lock
};
sub NA() { \&NA }
sub test_tracer {
my %params = @_;
my $convert = delete $params{convert};
my $trace = delete $params{trace};
view release on metacpan or search on metacpan
lib/Tree/Ops.pm view on Meta::CPAN
my @s = context $second; # Context of second child
my $c; $c = pop @f, pop @s while @f and @s and $f[-1] == $s[-1]; # Remove common ancestors
$c
}
sub go($@) # Return the child at the end of the path starting at the specified parent. A path is a list of zero based children numbers. Return B<undef> if the path is not valid.
{my ($parent, @path) = @_; # Parent, list of zero based children numbers
my $p = $parent; # Start
my $q; defined($q = $p->children->[$_]) ? $p = $q : return undef for @path; # Down # Same first and second child
$p
}
lib/Tree/Ops.pm view on Meta::CPAN
$parent
}
#D1 Traverse # Traverse a tree.
sub by($;$) # Traverse a tree in post-order to process each child with the specified sub and return an array of the results of processing each child. If no sub sub is specified, the ...
{my ($tree, $sub) = @_; # Tree, optional sub to process each child
$sub //= sub{@_}; # Default sub
my @r; # Results
sub # Traverse
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
```
Internally `ID` is equivalent to the following type:
```perl
sub ID() { Str }
```
#### `$type_args` is an undefined value
Given a undefined value in `$type_args`, it returns the type constraint defined by Type::Tiny's Undef type.
view release on metacpan or search on metacpan
examples/filter_kbd_tables.pl view on Meta::CPAN
# Remove ß ẞ :
my %fix = qw( Ô¥ Ô¤ Ô§ Ô¦ Ó Ó€ É€ Ɀ ꙡ ê™ êž‘ êž êž§ Ꞧ É‹ ÉŠ êž© Ꞩ È¿ â±¾ êž“ êž’ ꞥ Ꞥ ); # Perl 5.8.8 uc is wrong with palochka, 5.10 with z with swash tail
my %unfix = reverse %fix;
sub chr($) { local $^W = 0; toU CORE::chr shift } # Avoid illegal character 0xfffe etc warnings...
sub lc($) { my $in = shift; $unfix{$in} || CORE::lc toU $in }
sub uc($) { my $in = shift; $fix{$in} || CORE::uc toU $in }
my %html_esc = qw( & & < < > > );
sub h($) { (my $c = shift) =~ s/([&<>])/$html_esc{$1}/g; $c }
sub tags_by_rx {
my ($c, @o) = shift;
view release on metacpan or search on metacpan
lib/UI/Various/core.pm view on Meta::CPAN
full name of UI
=cut
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
sub ui(;$)
{
return $UI->{ui};
}
#########################################################################
view release on metacpan or search on metacpan
lib/UR/Context/Transaction.pm view on Meta::CPAN
return eval_or_do($is_failure, @_);
}
# do function takes a block (&) sort of like CORE::do
# do will rollback on a false result as well as before re-throwing a caught die
sub do(&) {
my $is_failure = sub {
my ($result, $eval_error) = @_;
return !$result || $eval_error;
};
my ($result, $eval_error) = eval_or_do($is_failure, @_);
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
t/5persist/bare.t view on Meta::CPAN
require UUID;
ok 1, 'loaded';
sub t (&) {
local $SIG{__WARN__} = sub {};
my $t = shift;
my ($rv, $err);
$rv = try { $t->() } catch { $err = $_; undef };
return $rv, $err;
view release on metacpan or search on metacpan
sub jisToUtf8_pp($){ tt($pp->set($_[0],'jis')->utf8()); }
sub jisToSjis_xs($){ tt($xs->set($_[0],'jis')->sjis()); }
sub jisToSjis_pp($){ tt($pp->set($_[0],'jis')->sjis()); }
sub jisToJis_xs($){ tt($xs->set($_[0],'jis')->jis()); }
sub jisToJis_pp($){ tt($pp->set($_[0],'jis')->jis()); }
sub tt($){ escfull($_[0]) }
sub bin($){ escfull(pack("H*",join('',split(' ',$_[0])))); }
{
# ASCII : \e(B
#
view release on metacpan or search on metacpan
script/unichars view on Meta::CPAN
sub utf::is_utf8($);
################################################################
sub ARGCOUNT;
sub CF();
sub IT();
sub NAME();
sub NOT_REACHED;
sub NUM();
sub am_running_perldb;
script/unichars view on Meta::CPAN
no warnings "once";
*UCA = \&UCA1;
}
sub CF() {
$CF = casefold(ord);
return ($CF && $CF->{status}) || "";
}
sub NUM() {
view release on metacpan or search on metacpan
lib/User/Identity/System.pm view on Meta::CPAN
#--------------------
sub hostname() { $_[0]->{UIS_hostname} }
sub username() { $_[0]->{UIS_username} }
sub os() { $_[0]->{UIS_os} }
sub password() { $_[0]->{UIS_password} }
sub location()
{ my $self = shift;
view release on metacpan or search on metacpan
lib/VS/RuleEngine/Declare.pm view on Meta::CPAN
}
return $engine;
}
sub as($) {
return $_[0];
}
sub does(&) {
my $cv = shift;
view release on metacpan or search on metacpan
lib/Validate/CodiceFiscale.pm view on Meta::CPAN
# The following is useful for one-lines:
#
# $ perl -MValidate::CodiceFiscale=r -er bcadfe88a48h501p
#
sub r (@args) {
@args = @ARGV unless @args;
my $i = 0;
my $n = 0;
for my $cf (@ARGV) {
if (my $errors = validate_cf($cf)) {
view release on metacpan or search on metacpan
t/80-leaks.t view on Meta::CPAN
sub new { bless { }, shift }
sub DESTROY { ++$::destroyed }
}
sub D () { 'Variable::Magic::TestDestructor' }
{
local $destroyed = 0;
my $w = wizard data => sub { $_[1] };
view release on metacpan or search on metacpan
lib/WWW/Bugzilla3.pm view on Meta::CPAN
Returns LWP::UserAgent object user for communications with bugzilla.
=cut
sub ua($) {
shift->{rpc}->useragent;
}
1;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or