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
my $p = $p1 ;
my $o0 = '' ; # 出力文å—åˆ—ã€€ä»®æ ¼ç´
my $o1 = '' ; # 出力文å—列
my $L = 0 ; # 出力ã—ãŸè¡Œæ•°
sub M ($) ;
* M = ($o{b} // 1 ) eq 1 ? sub ($) { $_[0] } : sub ($) { ( $_[0] - 1 ) * $o{b} + 1 } ;
* con = $o{','} ? sub { map { M $_ } $_[0] .. $_[1] } : sub { ( M $_[0] ) . '-' . ( M $_[1] ) } ; # 関数を定義。-ã§ã¤ãªã’ã‚‹ã‹ã€,ã§ã¤ãªã’ã‚‹ã‹
* con2 = sub { $p2a < $p2 ? join "," , con ($p2a,$p2) : "$p2" } ;
if ( $o{p} ) {
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
lib/App/Colorist/Colorizer.pm view on Meta::CPAN
my ($self, $c) = @_;
$self->get_fg($self->eval_color($c));
}
sub bg($) {
my ($self, $c) = @_;
$self->get_bg($self->eval_color($c));
}
view release on metacpan or search on metacpan
lib/App/Easer/V1.pm view on Meta::CPAN
sub commit_configuration ($self, $spec, $args) {
my $commit = $spec->{commit} // return;
$self->{factory}->($commit, 'commit')->($self, $spec, $args);
}
sub d (@stuff) {
no warnings;
require Data::Dumper;
local $Data::Dumper::Indent = 1;
warn Data::Dumper::Dumper(@stuff % 2 ? \@stuff : {@stuff});
} ## end sub d (@stuff)
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
{
path => $_[0],
}
}
sub ci($$) {
my $self=shift;
my $stat=xlstat shift;
my $gen = $self->{genfile}++;
$stat->{id} = $gen;
view release on metacpan or search on metacpan
lib/ChordPro/Output/Meta.pm view on Meta::CPAN
sub looks_like_number($v) {
defined($v) && $v =~ /^[-+]?\d+(?:\.\d*)?$/;
}
sub kv( $k, $v ) {
$v = flatten($v);
qquote($k, 1) . " : " . qquote($v, !looks_like_number($v));
}
sub flatten($v) {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use strict;
use warnings;
use ExtUtils::MakeMaker;
sub ls($)
{
my $d = shift;
opendir D, $d or die $!;
map { "$d/$_" } grep { -f "$d/$_" } readdir D;
}
view release on metacpan or search on metacpan
lib/App/Pfind.pm view on Meta::CPAN
for my $d (@_) {
CORE::rmdir($d);
}
}
# A safe 'rm' that does not recurse into directories.
sub rm(_;@) {
for my $f (@_) {
if (-d $f) {
CORE::rmdir($f);
return if $!;
} else {
view release on metacpan or search on metacpan
devdata/Menlo-CLI-Compat.v1.9022.pm.txt view on Meta::CPAN
if ($INC{"App/FatPacker/Trace.pm"}) {
require version::vpp;
}
sub qs($) {
Menlo::Util::shell_quote($_[0]);
}
sub determine_home {
my $class = shift;
view release on metacpan or search on metacpan
local/lib/perl5/Test/Spec.pm view on Meta::CPAN
}
# it DESC => CODE
# it CODE
# it DESC
sub it(@) {
my $package = caller;
my $code;
if (@_ && ref($_[-1]) eq 'CODE') {
$code = pop;
}
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
minute => 25,
second => 7,
time_zone => 'UTC',
);
sub ts($) {
my $str = shift || return $ts;
my @parts = split /[-:T]/ => $str;
return App::Sqitch::DateTime->new(
year => $parts[0],
month => $parts[1],
view release on metacpan or search on metacpan
script/find2perl view on Meta::CPAN
use Config;
my ($perlpath) = $Config{perlpath};
my $startperl = "#! $perlpath -w";
sub tab ();
sub n ($$);
sub fileglob_to_re ($);
sub quote ($);
my @roots = ();
while ($ARGV[0] =~ /^[^-!(]/) {
script/find2perl view on Meta::CPAN
$x =~ s#\*#.*#g;
$x =~ s#\?#.#g;
"^$x\\z";
}
sub n ($$) {
my ($pre, $n) = @_;
$n =~ s/^-/< / || $n =~ s/^\+/> / || $n =~ s/^/== /;
$n =~ s/ 0*(\d)/ $1/;
"($pre $n)";
}
view release on metacpan or search on metacpan
}
& gap1output unless ($o{G}//'') eq 0 ;
exit 0 if ($o{L}//'') eq 0 ;
sub f ($) { my $t = sprintf "%.12f" , $_[0] ; $t =~ s/\.?0*$//r } # 12æ¡ã«ã—ã¦ã€æœ«å°¾ã‹ã‚‰ã®0を削る
# 出力2. longest length 㨠max gap ####
say join "\t", map { UNDERLINE $_ } "|gap|<=" , "maxlen" , "line:content (length)" ;
for ( grep { $_ != "Inf" } sort { $a <=> $b } uniq map { abs $_ } keys %gd ) {
my @chains = defined $lc{$_} ? @{ $lc {$_} } : () ; # ãã‚Œã ã‘ã® $_ ã¤ã¾ã‚Š max abs gap ã‚’æŒã¤ã‚‚ã®ã®ã€ãƒªã‚¹ãƒˆã‚’å–り出ã™ã€‚
view release on metacpan or search on metacpan
lib/App/livehttperf.pm view on Meta::CPAN
sub INFO() { $OPTS{verbosity} >= 2; }
sub WARN() { $OPTS{verbosity} >= 1; }
sub ERROR() { ! $OPTS{quiet}; }
sub trim { s/\r?\n$// for @_ };
sub hb($) { return $_[0] ? 'Yes' : 'No' }
sub print_version {
my $year = (localtime)[5] + 1900;
my $years = $year != 2012 ? "2012-$year" : '2012';
binmode STDOUT, ":utf8";
view release on metacpan or search on metacpan
use Params::Classify qw(is_ref);
use Test::More tests => 33;
BEGIN { use_ok "App::olson"; }
sub pa($) {
my($txt) = @_;
pos($txt) = undef;
my $attr = App::olson::_parse_attribute_from_gmatch(\$txt);
$txt =~ /\G\z/gc or die "extraneous matter after attribute\n";
return $attr;
view release on metacpan or search on metacpan
}
undef $at;
}
# run pl, expect $_
sub pl(@) {
at;
my @cmd = ($^X, '-W', '../pl', @_);
my $name = join ' ', 'pl', map /[\s*?()[\]{}\$\\'";|&]|^$/ ? "'$_'" : $_, @_;
if( $windows ) {
require Win32::ShellQuote;
view release on metacpan or search on metacpan
if( $GenKey{'l'} ){
$Proto .= "sub _l();\n";
$Func .= <<'[TheEnd]';
# _l: l command processing
#
sub _l(){
my $h = $_;
my $mcpl = 70;
# transform non printing chars into escape notation
$h =~ s/\\/\\\\/g;
if( $h =~ /[^[:print:]]/ ){
if( $GenKey{'r'} ){
$Proto .= "sub _r(\$);\n";
$Func .= <<'[TheEnd]';
# _r: r command processing: Save a reference to the pathname.
#
sub _r($){
my $path = shift();
push( @Q, \$path );
}
[TheEnd]
if( $GenKey{'t'} ){
$Proto .= "sub _t();\n";
$Func .= <<'[TheEnd]';
# _t: t command - condition register test/reset
#
sub _t(){
my $res = $CondReg;
$CondReg = 0;
$res;
}
if( $GenKey{'w'} ){
$Proto .= "sub _w(\$);\n";
$Func .= <<'[TheEnd]';
# _w: w command and s command's w flag - write to file
#
sub _w($){
my $path = shift();
my $handle = $wFiles{$path};
if( ! $doOpenWrite && ! defined( fileno( $handle ) ) ){
open( $handle, ">$path" )
|| die( "$0: $path: cannot open ($!)\n" );