view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3839404142434445464748diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7172737475767778798081diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3839404142434445464748diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7172737475767778798081diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3233343536373839404142{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
5859606162636465666768my
@flags
= $1 ?
split
(
' '
, $1) : ();
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
@flags
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/t_TestCommon.pm view on Meta::CPAN
5051525354555657585960616263646566# Force UTF-8 (and remove any other encoder) regardless of the
# environment/terminal. This allows tests to use capture {...} and check
# the results independent of the environment, even though printed results
# may be garbled.
binmode
(STDIN,
":raw:encoding(UTF-8):crlf"
);
if
($^O eq
"MSWin32"
) {
binmode
(STDOUT,
":raw:encoding(UTF-8)"
);
binmode
(STDERR,
":raw:encoding(UTF-8)"
);
}
else
{
binmode
(STDOUT,
":raw:crlf:encoding(UTF-8)"
);
binmode
(STDERR,
":raw:crlf:encoding(UTF-8)"
);
}
# Disable buffering
STDERR->autoflush(1);
STDOUT->autoflush(1);
t/t_TestCommon.pm view on Meta::CPAN
view all matches for this distribution
383384385386387388389390391392393394395396397398399
my
@OUT_layers
=
grep
{
$_
ne
"unix"
} PerlIO::get_layers(
*STDOUT
,
output
=>1);
open
(
$orig_stdOUT
,
">&"
, \
*STDOUT
) or
die
"dup STDOUT: $!"
;
close
STDOUT;
open
(STDOUT,
">"
, \
$inmem_stdOUT
) or
die
"redir STDOUT: $!"
;
binmode
(STDOUT);
binmode
(STDOUT,
":utf8"
);
my
@ERR_layers
=
grep
{
$_
ne
"unix"
} PerlIO::get_layers(
*STDERR
,
output
=>1);
open
(
$orig_stdERR
,
">&"
, \
*STDERR
) or
die
"dup STDERR: $!"
;
close
STDERR;
open
(STDERR,
">"
, \
$inmem_stdERR
) or
die
"redir STDERR: $!"
;
binmode
(STDERR);
binmode
(STDERR,
":utf8"
);
}
sub
silent(&) {
my
$wantarray
=
wantarray
;
my
$code
=
shift
;
_start_silent();
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
4041424344454647484950diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7374757677787980818283diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
3233343536373839404142{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3839404142434445464748diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7172737475767778798081diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
view all matches for this distribution
75767778798081828384
my
(
$FH
,
$tmpfile
) = File::Temp::tempfile(
"compilexs-XXXXX"
,
SUFFIX
=>
'.c'
,
);
binmode
$FH
;
$FH
<<
'END_C'
;
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
view release on metacpan or search on metacpan
view all matches for this distribution
2526272829303132333435my
$oL2
= (
$o
{L}//
''
) eq 2 ;
# $optL2 ã¯é•·ã™ãŽã‚‹ã®ã§ã€ã¡ã‚‡ã£ã¨ç‰¹ä¾‹çš„ã«çŸãã—ã¦ã¿ãŸ
my
$oL4
= (
$o
{L}//
''
) eq 4 ;
$o
{
'.'
} //= 1 ;
$o
{
'$'
} //=
'$'
;
# æ–‡å—ã®çµ‚端を表ã™è¨˜å·
binmode
STDOUT,
'utf8'
unless
$optu0
;
## 具体例を指示ã™ã‚‹ -g ã«ã¤ã„ã¦ã®å‡¦ç†
$o
{g} //= 1 ;
# 例ã¨ã—ã¦å–り出ã™ãŸã‚ã«ã€å„é »åº¦ã«å¯¾ã—ã¦ä½•個異ãªã‚‹ä¾‹ã‚’ä¿æŒã™ã‚‹ã‹ã€‚
my
$sep
=
do
{
my
$c
=
$o
{g} =~s/\d//gr ;
$c
= decode_utf8
$c
if
!
$optu0
;
$c
ne
''
?
$c
:
'|'
} ;
# 出力表ã§ã®å…·ä½“例ã®åŒºåˆ‡ã‚Šæ–‡å—。
$o
{g} =~ s/\D//g ;
view release on metacpan or search on metacpan
view all matches for this distribution
787980818283848586871.08 Jan 8, 2013
- added
option. (
%R
... rev,
%c
%Ck
... client_mtime )
- fix
option bug.
1.07 Jan 8, 2013
-
binmode
STDERR,
":utf8"
1.06 Jan 8, 2013
- added -e option, it is
"HTTP_PROXY"
and
"NO_PROXY"
environment variable support.
- fix UTF-8-mac filename bug
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
7891011121314151617use
File::Spec ;
binmode
STDOUT ,
':utf8'
;
$o
{b} //= 512 ;
# stat関数ã§1個ã®ãƒ•ァイルã®ãƒ–ãƒãƒƒã‚¯æ•°ã‚’å¾—ãŸå ´åˆã«ã€ãれを何å€ã—ãŸã‚‰ã€ãƒ‡ã‚£ã‚¹ã‚¯ã‚’å æœ‰ã™ã‚‹ãƒã‚¤ãƒˆæ•°ã«ãªã‚‹ã‹ã€‚
my
$optI0
= 0 eq (
$o
{i} //
''
) ;
# -i0ã®æŒ‡å®šãŒã‚ã‚‹ã‹å¦ã‹ã€‚ inodeã§ä¸€è‡´ã™ã‚‹ã‚‚ã®ã¯1個ã—ã‹å—ã‘付ã‘ãªã„よã†ã«ã™ã‚‹ã€‚
my
$optL0
= 0 eq (
$o
{l} //
''
) ;
# -l0ã®æŒ‡å®šãŒã‚ã‚‹ã‹å¦ã‹ã€‚stat 関数を使ã†ã‹ lstat 関数を使ã†ã‹ã‚’指定。
my
$optc0
= 0 eq (
$o
{
','
}//
''
) ;
# -,0ã®æŒ‡å®šãŒã‚ã‚‹ã‹å¦ã‹ã€‚åƒé€²æ³•区切りã§,を使ã†ã‹å¦ã‹ã‚’指定。
view all matches for this distribution
3536373839404142434445& prepCommands ( \
@files
, \
@visible
,
$datetime
,
my
$msg
,
my
$change
,
my
$cmd1
,
my
$cmd2
) ;
# change ã¯ãƒ•ァイルã®å¤‰æ›´å€‹æ•°,
do
{
say
$msg
;
exit
}
unless
exists
$o
{G} ;
# -Gã®æŒ‡å®šãŒã‚れã°ã•らã«ç¶šã。
if
(
$o
{G} =~ /0/ ) {
say
"$cmd1\n$cmd2"
} ;
# -Gã«0ãŒã‚れã°ã€ã‚³ãƒžãƒ³ãƒ‰æ–‡ã‚’表示
if
(
$o
{G} =~ /1/ ) { & againCheck (
$change
) and
exit
} ;
# -G ã«1ãŒã‚れã°ã€ã‚‚ã—ã‚‚å‰ã®ã‚³ãƒŸãƒƒãƒˆã§ã“ã®ã‚³ãƒžãƒ³ãƒ‰ã§ã‚³ãƒŸãƒƒãƒˆæ¸ˆã¿ãªã‚‰çµ‚了。
if
(
$o
{G} =~ /[12]/ ) {
do
{
my
$out2
=
qx[$cmd2]
;
binmode
STDOUT ,
':raw'
;
say
"-- ->"
, BOLD
$out2
//
''
} } ;
# コミット実行!
exit
;
# ä¸Šè¨˜ã‚’æ§‹é€ åŒ–ã™ã‚‹ãŸã‚ã«åˆ‡ã‚Šå‡ºã—ãŸé–¢æ•°
sub
getFiles ( $ $$ ) {
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
lib/Perinci/CmdLine/dux.pm view on Meta::CPAN
view all matches for this distribution
1314151617181920212223#sub color_theme_class_prefix { 'Perinci::CmdLine::ColorTheme' }
sub
action_call {
my
(
$self
,
$r
) =
@_
;
binmode
(STDOUT,
":encoding(utf8)"
);
# set `in` argument for the dux function
my
$chomp
=
$r
->{meta}{
"x.app.dux.strip_newlines"
} //
$r
->{meta}{
"x.dux.strip_newlines"
} //
# backward-compat, will be removed someday
1;
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3132333435363738394041{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
5758596061626364656667my
@flags
= $1 ?
split
(
' '
, $1) : ();
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
@flags
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3132333435363738394041{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
5758596061626364656667my
@flags
= $1 ?
split
(
' '
, $1) : ();
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
@flags
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3132333435363738394041{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
if
(
@_warnings
)
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
5455565758596061626364my
@flags
= $1 ?
split
(
' '
, $1) : ();
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
@flags
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
# in older perls, -c output is simply the file portion of the path being tested
view release on metacpan or search on metacpan
view all matches for this distribution
74757677787980818283
do
{
my
$fileName
=
shift
@ARGV
;
# ファイルå
my
$FH
;
# ファイルãƒãƒ³ãƒ‰ãƒ«
open
$FH
,
"<"
,
$fileName
or
warn
"File `$fileName' does not open."
and
next
if
defined
$fileName
;
$FH
=
*STDIN
if
!
defined
$fileName
;
binmode
$FH
,
":gzip(autopop)"
if
$o
{z} ;
# <-- autopop ã¨ã¯?
say
UNDERLINE
$fileName
if
$files
>= 2 ;
# ファイルãŒ2個以上指定ã•れã¦ã„ãŸã‚‰ã€ãƒ•ァイルåを表示ã™ã‚‹ã€‚
& eachFile (
$FH
) ;
}
while
@ARGV
}
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
lib/App/financeta/gui.pm view on Meta::CPAN
20742075207620772078207920802081208220832084208520862087
}
}
$pwin
->
reset
();
# use multiplot
$pwin
->multiplot();
my
%binmode
= ();
if
($^O !~ /Win32/ and
$Alien::Gnuplot::version
< 4.6) {
$log
->debug(
"Binary mode is set to 0 due to gnuplot $Alien::Gnuplot::version"
);
$binmode
{binary} = 0;
}
if
(
$type
eq
'OHLC'
) {
my
%addon_gen
= ();
if
(
@addon_plot
) {
$addon_gen
{size} = [
"1, 0.7"
];
lib/App/financeta/gui.pm view on Meta::CPAN
20892090209120922093209420952096209720982099
$addon_gen
{bmargin} = 0;
$addon_gen
{lmargin} = 9;
$addon_gen
{rmargin} = 2;
}
$pwin
->plot({
%binmode
,
object
=>
'1 rectangle from screen 0,0 to screen 1,1 fillcolor rgb "black" behind'
,
title
=> [
"$symbol Open-High-Low-Close"
,
textcolor
=>
'rgb "white"'
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
xlabel
=> [
'Date'
,
textcolor
=>
'rgb "yellow"'
],
lib/App/financeta/gui.pm view on Meta::CPAN
21122113211421152116211721182119212021212122
$data
(,(0)),
$data
(,(1)),
$data
(,(2)),
$data
(,(3)),
$data
(,(4)),
@general_plot
,
);
if
(
@addon_plot
) {
$pwin
->plot({
%binmode
,
object
=>
'1'
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
21482149215021512152215321542155215621572158
$addon_vol
{size} = [
"1, 0.3"
];
#bug in P:G:G
$addon_vol
{origin} = [0, 0];
$addon_vol
{object} =
'1'
;
# needed as otherwise the addon plot does it
}
$pwin
->plot({
%binmode
,
object
=>
'1 rectangle from screen 0,0 to screen 1,1 fillcolor rgb "black" behind'
,
xlabel
=> [
'Date'
,
textcolor
=>
'rgb "yellow"'
],
ylabel
=> [
'Price'
,
textcolor
=>
'rgb "yellow"'
],
title
=> [
"$symbol Price & Volume"
,
textcolor
=>
"rgb 'white'"
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
lib/App/financeta/gui.pm view on Meta::CPAN
21742175217621772178217921802181218221832184
$data
(,(0)),
$data
(,(1)),
$data
(,(2)),
$data
(,(3)),
$data
(,(4)),
@general_plot
,
);
if
(
@addon_plot
) {
$pwin
->plot({
%binmode
,
object
=>
'1'
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
21952196219721982199220022012202220322042205
},
@addon_plot
,
);
}
$pwin
->plot({
%binmode
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=> [
'Volume (in 1M)'
,
textcolor
=>
'rgb "yellow"'
],
xlabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
22292230223122322233223422352236223722382239
$addon_gen
{lmargin} = 9;
$addon_gen
{rmargin} = 2;
}
# use candlesticks feature of Gnuplot
$pwin
->plot({
%binmode
,
object
=>
'1 rectangle from screen 0,0 to screen 1,1 fillcolor rgb "black" behind'
,
title
=> [
"$symbol Open-High-Low-Close"
,
textcolor
=>
'rgb "white"'
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
xlabel
=> [
'Date'
,
textcolor
=>
'rgb "yellow"'
],
lib/App/financeta/gui.pm view on Meta::CPAN
22532254225522562257225822592260226122622263
@general_plot
,
@candle_plot
,
);
if
(
@addon_plot
) {
$pwin
->plot({
%binmode
,
object
=>
'1'
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
22892290229122922293229422952296229722982299
$addon_vol
{size} = [
"1, 0.3"
];
#bug in P:G:G
$addon_vol
{origin} = [0, 0];
$addon_vol
{object} =
'1'
;
# needed as otherwise the addon plot does it
}
$pwin
->plot({
%binmode
,
object
=>
'1 rectangle from screen 0,0 to screen 1,1 fillcolor rgb "black" behind'
,
title
=> [
"$symbol Price & Volume"
,
textcolor
=>
"rgb 'white'"
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
xlabel
=> [
'Date'
,
textcolor
=>
'rgb "yellow"'
],
lib/App/financeta/gui.pm view on Meta::CPAN
23172318231923202321232223232324232523262327
@general_plot
,
@candle_plot
,
);
if
(
@addon_plot
) {
$pwin
->plot({
%binmode
,
object
=>
'1'
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
23382339234023412342234323442345234623472348
},
@addon_plot
,
);
}
$pwin
->plot({
%binmode
,
title
=>
''
,
ylabel
=> [
'Volume (in 1M)'
,
textcolor
=>
'rgb "yellow"'
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
xtics
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
23772378237923802381238223832384238523862387
$addon_vol
{size} = [
"1, 0.3"
];
#bug in P:G:G
$addon_vol
{origin} = [0, 0];
$addon_vol
{object} =
'1'
;
# needed as otherwise the addon plot does it
}
$pwin
->plot({
%binmode
,
object
=>
'1 rectangle from screen 0,0 to screen 1,1 fillcolor rgb "black" behind'
,
title
=> [
"$symbol Price & Volume"
,
textcolor
=>
"rgb 'white'"
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=> [
'Close Price'
,
textcolor
=>
'rgb "yellow"'
],
lib/App/financeta/gui.pm view on Meta::CPAN
24032404240524062407240824092410241124122413
$data
(,(0)),
$data
(,(4)),
@general_plot
,
);
if
(
@addon_plot
) {
$pwin
->plot({
%binmode
,
object
=>
'1'
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
24242425242624272428242924302431243224332434
},
@addon_plot
,
);
}
$pwin
->plot({
%binmode
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=> [
'Volume (in 1M)'
,
textcolor
=>
'rgb "yellow"'
],
xlabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
24582459246024612462246324642465246624672468
$addon_gen
{bmargin} = 0;
$addon_gen
{lmargin} = 9;
$addon_gen
{rmargin} = 2;
}
$pwin
->plot({
%binmode
,
object
=>
'1 rectangle from screen 0,0 to screen 1,1 fillcolor rgb "black" behind'
,
title
=> [
"$symbol Close Price"
,
textcolor
=>
'rgb "white"'
],
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
xlabel
=> [
'Date'
,
textcolor
=>
'rgb "yellow"'
],
lib/App/financeta/gui.pm view on Meta::CPAN
24812482248324842485248624872488248924902491
$data
(,(0)),
$data
(,(4)),
@general_plot
,
);
if
(
@addon_plot
) {
$pwin
->plot({
%binmode
,
object
=>
'1'
,
title
=>
''
,
key
=> [
'on'
,
'outside'
,
textcolor
=>
'rgb "yellow"'
],
border
=>
'linecolor rgbcolor "white"'
,
ylabel
=>
''
,
lib/App/financeta/gui.pm view on Meta::CPAN
view all matches for this distribution
27362737273827392740274127422743274427452746
charts
=> \
@charts
,
title
=>
$symbol
,
},
};
my
$tt
= Template->new({
ABSOLUTE
=> 1 });
my
$ret
=
$tt
->process(
$ttfile
,
$ttconf
,
$html
, {
binmode
=>
':utf8'
});
if
(
$ret
) {
my
$url
=
"file://$html"
;
my
$ok
= Browser::Open::open_browser(
$url
, 1);
if
(not
defined
$ok
) {
message(
"Error finding a browser to open $url"
);
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3132333435363738394041{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
5758596061626364656667my
@flags
= $1 ?
split
(
' '
, $1) : ();
my
$stderr
= IO::Handle->new;
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
$inc_switch
,
@flags
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
73037304730573067307730873097310731173127313#
#my %hands_off = map {($_,1)} qw'&import *import';
#
#sub import {
# return unless @_ == 2 and $_[1] eq 'golf';
# binmode STDOUT;
# my $text = do { local $/; <> };
# print STDOUT golf( $text );
#};
#
#sub golf {
script/_finddo view on Meta::CPAN
1177711778117791178011781117821178311784117851178611787# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, $!);
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
#}
#
#sub LoadFile {
script/_finddo view on Meta::CPAN
view all matches for this distribution
1179211793117941179511796117971179811799118001180111802# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, $!);
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
#sub init_action_object {
# my $self = shift;
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
6768697071727374757677diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
view release on metacpan or search on metacpan
script/freqtable view on Meta::CPAN
view all matches for this distribution
100101102103104105106107108109110111112
warn
"freqtable: Can't open '$fn': $!\n"
;
next
;
};
}
if
(
$Opts
{mode} eq
'byte'
) {
binmode
$fh
;
}
else
{
binmode
$fh
,
":encoding(utf8)"
;
}
while
(1) {
read
$fh
,
my
$block
, 4096;
last
if
!
length
$block
;
for
(
split
//,
$block
) {
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
3738394041424344454647diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-e'
,
"require q[$lib]"
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-e'
,
"require q[$lib]"
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$lib loaded ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/
t/00-compile.t view on Meta::CPAN
view all matches for this distribution
7071727374757677787980diag(
'Running: '
,
join
(
', '
,
map
{
my
$str
=
$_
;
$str
=~ s/
'/\\'
/g;
q{'}
.
$str
.
q{'}
}
$^X,
@switches
,
'-c'
,
$file
))
if
$ENV
{PERL_COMPILE_TEST_DEBUG};
my
$pid
= open3(
$stdin
,
'>&STDERR'
,
$stderr
, $^X,
@switches
,
'-c'
,
$file
);
binmode
$stderr
,
':crlf'
if
$^O eq
'MSWin32'
;
my
@_warnings
= <
$stderr
>;
waitpid
(
$pid
, 0);
is($?, 0,
"$file compiled ok"
);
shift
@_warnings
if
@_warnings
and
$_warnings
[0] =~ /^Using .*\bblib/