view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

38
39
40
41
42
43
44
45
46
47
48
diag('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

71
72
73
74
75
76
77
78
79
80
81
diag('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

38
39
40
41
42
43
44
45
46
47
48
diag('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

71
72
73
74
75
76
77
78
79
80
81
diag('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

32
33
34
35
36
37
38
39
40
41
42
{
    # 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

58
59
60
61
62
63
64
65
66
67
68
my @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

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
# 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

383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
 
  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

40
41
42
43
44
45
46
47
48
49
50
diag('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

73
74
75
76
77
78
79
80
81
82
83
diag('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

32
33
34
35
36
37
38
39
40
41
42
{
    # 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

38
39
40
41
42
43
44
45
46
47
48
diag('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

71
72
73
74
75
76
77
78
79
80
81
diag('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

75
76
77
78
79
80
81
82
83
84
        require File::Temp;
        my ( $FH, $tmpfile ) = File::Temp::tempfile(
                "compilexs-XXXXX",
                SUFFIX => '.c',
        );
        binmode $FH;
        print $FH <<'END_C';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

 view release on metacpan or  search on metacpan

digitdemog  view on Meta::CPAN

25
26
27
28
29
30
31
32
33
34
35
my $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

Changes  view on Meta::CPAN

78
79
80
81
82
83
84
85
86
87
1.08    Jan  8, 2013
        - added print option. ( %R ... rev, %c %Ck ... client_mtime )
        - fix print 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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

dufolder  view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17
use File::Spec ; 
use Getopt::Std ; getopts '.,:b:i:l:B:G:' , \my %o ; 
use List::Util qw[ max sum0 ] ;
use POSIX qw [ strftime ] ; 
use Term::ANSIColor qw[ :constants ] ; $Term::ANSIColor::AUTORESET = 1 ;
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の指定があるか否か。千進法区切りで,を使うか否かを指定。

dufolder  view on Meta::CPAN

35
36
37
38
39
40
41
42
43
44
45
 
& 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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

13
14
15
16
17
18
19
20
21
22
23
#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

31
32
33
34
35
36
37
38
39
40
41
{
    # 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

57
58
59
60
61
62
63
64
65
66
67
my @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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

31
32
33
34
35
36
37
38
39
40
41
{
    # 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

57
58
59
60
61
62
63
64
65
66
67
my @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

31
32
33
34
35
36
37
38
39
40
41
{
    # 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

54
55
56
57
58
59
60
61
62
63
64
 my @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

expskip  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
  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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
    }
}
$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

2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
    $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

2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
    $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

2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
    $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

2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
    $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

2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
        },
        @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

2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
    $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

2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
    @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

2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
    $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

2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
    @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

2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
        },
        @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

2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
    $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

2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
    $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

2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
        },
        @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

2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
    $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

2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
    $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

2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
        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

31
32
33
34
35
36
37
38
39
40
41
{
    # 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

57
58
59
60
61
62
63
64
65
66
67
my @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

7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
#
#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

11777
11778
11779
11780
11781
11782
11783
11784
11785
11786
11787
#            ($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

11792
11793
11794
11795
11796
11797
11798
11799
11800
11801
11802
#    }
#    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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

37
38
39
40
41
42
43
44
45
46
47
diag('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

67
68
69
70
71
72
73
74
75
76
77
diag('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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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

161
162
163
164
165
166
167
168
169
170
171
172
173
        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

37
38
39
40
41
42
43
44
45
46
47
diag('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

70
71
72
73
74
75
76
77
78
79
80
diag('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/