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
eg/bench_cv.pl view on Meta::CPAN
use Benchmark qw(:hireswallclock);
my ($delay, $count) = @ARGV;
$delay //= 0;
$count //= 20000;
sub cv($) {
my $v = shift;
my $cv = AE::cv;
my $t; $t = AE::timer $delay, 0, sub {
$cv->($v);
undef $t;
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
lib/Data/Printer.pm view on Meta::CPAN
}
return $output;
}
sub p (\[@$%&];%) {
my (undef, %properties) = @_;
_initialize();
my $caller = caller;
view release on metacpan or search on metacpan
t/01_simple.t view on Meta::CPAN
# utility functions
sub U($) { decode_utf8($_[0]) }
sub u($) { encode_utf8($_[0]) }
sub E($) { decode('euc-jp', $_[0]) }
sub e($) { encode('euc-jp', $_[0]) }
sub eU($) { e(U($_[0])) }
# -------------------------------------------------------------------------
subtest "decode_utf8" => sub {
my $D = sub { Data::Recursive::Encode->decode_utf8(@_) };
view release on metacpan or search on metacpan
lib/Data/Table/Text.pm view on Meta::CPAN
BEGIN{*fpe=*filePathExt}
BEGIN{*fpf=*filePath}
#D3 Fission # Get file name components from a file name.
sub fp($) # Get the path from a file name.
{my ($file) = @_; # File name
$file or confess "File required";
if (onWindows)
{return '' unless $file =~ m(\\); # Must have a \ in it else no path
$file =~ s([^\\]*\Z) ()gsr
lib/Data/Table/Text.pm view on Meta::CPAN
{return '' unless $file =~ m(/); # Must have a / in it else no path
}
$file =~ s(\.[^.]+?\Z) ()gsr
}
sub fn($) #I Remove the path and extension from a file name.
{my ($file) = @_; # File name
$file or confess "File required";
if (onWindows)
{$file =~ s(\A.*\\) ()gsr =~ s(\.[^.]+?\Z) ()gsr
}
lib/Data/Table/Text.pm view on Meta::CPAN
else
{$file =~ s(\A.*/) ()gsr;
}
}
sub fe($) # Get the extension of a file name.
{my ($file) = @_; # File name
$file or confess "File required";
return '' unless $file =~ m(\.)s; # Must have a period
my $f = $file =~ s(\.[^.]*?\Z) ()gsr;
substr($file, length($f)+1)
view release on metacpan or search on metacpan
t/CommonStuff.pm view on Meta::CPAN
[1_000, 1],
[ 25, 50]);
my $Tester = Test::Builder->new();
sub qt($) {
$_ = shift();
s/\t/\\t\t/g;
s/\n/\\n\n/g;
return $_;
}
view release on metacpan or search on metacpan
Business.pm view on Meta::CPAN
my($self, $other) = @_;
return $self->{'val'} <=> $other->{'val'};
}
sub eq($$) {
my($self, $other) = @_;
return $self->{'val'} <=> $other->{'val'};
}
sub gt($$) {
my($self, $other) = @_;
return $self->{'val'} > $other->{'val'};
}
sub lt($$) {
my($self, $other) = @_;
return $self->{'val'} < $other->{'val'};
}
sub add($$) {
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
bin/cfmap-cavehify view on Meta::CPAN
cave23 => 1+2+4+8,
cave24 => 1+2+4+8,
cave25 => 1+2+4+8,
);
sub xy($$) {
my ($x, $y) = @_;
$x >= 0 && $x < $map->{width}
&& $y >= 0 && $y < $map->{height}
? $cols->[$_[0]][$_[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
lib/Devel/Decouple.pm view on Meta::CPAN
my %map = map { $_ => $code } @{$functions};
return %map, %args;
}
sub as(&) {
return shift;
}
sub default_sub() {
return '_DEFAULT_';
view release on metacpan or search on metacpan
=cut
sub find($);
sub _f($) {
"$_[0] [refcount " . (_refcnt $_[0]) . "]"
}
sub track {
my ($ref, $depth) = @_;
view release on metacpan or search on metacpan
GetOptions(\%OPT, qw(verbose make=s min=s mmargs=s@ color!)) or pod2usage(2);
$OPT{mmargs} = [''] unless exists $OPT{mmargs};
$OPT{min} = parse_version($OPT{min}) - 1e-10;
sub cs($;$$) { my $x = shift; my($s, $p) = @_ ? @_ : ('', 's'); ($x, $x == 1 ? $s : $p) }
my @GoodPerls = map { $_->[0] }
sort { $a->[1] <=> $b->[1] or $a->[0] cmp $b->[0] }
grep { $_->[1] >= $OPT{min} }
map { [$_ => perl_version($_)] }
package Soak::Reporter;
use strict;
sub cs($;$$) { my $x = shift; my($s, $p) = @_ ? @_ : ('', 's'); ($x, $x == 1 ? $s : $p) }
sub new
{
my $class = shift;
bless {
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
lib/Devel/PrettyTrace.pm view on Meta::CPAN
max_depth => 2,
indent => 2,
return_value => 'dump',
);
sub bt() {
#local @DB::args;
my $ret = '';
my $i = $Skiplevels + 1; #skip own call
my $filter = get_ignore_filter();
view release on metacpan or search on metacpan
lib/Devel/Trepan/Position.pm view on Meta::CPAN
struct Devel::Trepan::Position => {pkg => '$', filename => '$', line => '$',
event => '$'};
use strict 'subs';
package Devel::Trepan::Position;
sub eq($$)
{
my ($self, $other) = @_;
return 0 unless defined $self && defined $other;
return (
$self->filename eq $other->filename
view release on metacpan or search on metacpan
lib/Device/GPIB/Generic.pm view on Meta::CPAN
$self->{Address} = $address;
}
# Return the device ID, or undef if nothing at the address
sub id($)
{
my ($self) = @_;
$self->{Id} = $self->sendAndRead('ID?');
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
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub _active_fields;
sub _fieldhash($$) ;
sub _test_uvar_get;
sub _test_uvar_same;
sub _test_uvar_set;
sub id($) ;
sub id_2obj($) ;
sub register($@) ;
}
package I18N::Langinfo {
sub AUTOLOAD;
view release on metacpan or search on metacpan
and my($tr) = ($ARGV[0] =~ /^starttrack=(\d+)$/)
and my($nt) = ($ARGV[1] =~ /^tracks=(\d+)$/)
and my($fm) = ($ARGV[2] =~ /^first_meth=(\d+)$/);
open F, '>> tracks-labels' or die;
sub cb($$$) { my ($n, $id, $label) = (shift, shift, shift);
$n += $tr - 1;
print F "track=$n\t==>\t$label\n";
recode sprintf('audio_%02d.wav', $n), $id, $label}
print DoubleBlind::process_shuffled \&cb, 6, 0;
close F or die;
view release on metacpan or search on metacpan
lib/ETL/Yertl.pm view on Meta::CPAN
#pod Create a L<ETL::Yertl::Transform::Yq> object with the given filter. See
#pod L<yq/SYNTAX> for full filter syntax.
#pod
#pod =cut
sub yq( $ ) {
my ( $filter ) = @_;
return transform(
'ETL::Yertl::Transform::Yq',
filter => $filter,
);
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
lib/Emacs/Lisp.pm view on Meta::CPAN
)],
);
@EXPORT = map { @$_ } values %EXPORT_TAGS;
sub t () { return \*::t; }
sub nil () { return undef; }
sub AUTOLOAD {
*$AUTOLOAD = &$get_funcall_closure (__PACKAGE__, $AUTOLOAD);
goto &$AUTOLOAD;
view release on metacpan or search on metacpan
email_gmdate($birthday),
'Thu, 20 Jul 2006 21:58:24 +0000',
"rjbs's birthday date format properly in GMT",
);
sub tz($) { sprintf "%s%02u%02u", Email::Date::Format::_tz_diff(shift) }
if ($^O ne 'MSWin32') {
# https://github.com/rjbs/Email-Date-Format/issues/5
#
# Look, I'm not sure exactly what's going on here! I think the short version
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
lib/Enbld.pm view on Meta::CPAN
}
$rcfile_condition->{from} = $from;
}
sub to($) {
my $to = shift;
if ( ref( $to ) ) {
_err( "Function 'to' requsres string type parameter." );
}