view release on metacpan or  search on metacpan

bin/table2yaml  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use common::sense;
use warnings FATAL => q(all);
use autodie q(:all);
use Getopt::Long;
use Pod::Find qw(pod_where);
use Pod::Usage;
use App::Table2YAML::CLI;
 
our $VERSION = '0.003'; # VERSION
 
binmode STDOUT, q(:utf8);
 
my %opt;
my $result = GetOptions(
    q(--list_loaders|l)       => sub { $opt{ $_[0] } = $_[1] },
    q(--input_type|t=s)       => sub { $opt{ $_[0] } = $_[1] },
    q(--input|i=s)            => sub { $opt{ $_[0] } = $_[1] },
    q(--allow_nulls|n=i)      => sub { $opt{ $_[0] } = $_[1] },
    q(--field_separator|f=s)  => sub { $opt{ $_[0] } = $_[1] },
    q(--record_separator|r=s) => sub { $opt{ $_[0] } = $_[1] },
    q(--field_offset|o=s{1,}) => sub { push @{ $opt{ $_[0] } }, $_[1]; }

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

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
 
my @warnings;
for my $lib (@module_files)
{
    # 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)
    {
        warn @_warnings;
        push @warnings, @_warnings;
    }
}

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

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
{ SKIP: {
    open my $fh, '<', $file or warn("Unable to open $file: $!"), next;
    my $line = <$fh>;
 
    close $fh and skip("$file isn't perl", 1) unless $line =~ /^#!\s*(?:\S*perl\S*)((?:\s+-\w*)*)(?:\s*#.*)?$/;
    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
    if (@_warnings = grep { !/\bsyntax OK$/ }
        grep { chomp; $_ ne (File::Spec->splitpath($file))[2] } @_warnings)
    {
        warn @_warnings;
        push @warnings, @_warnings;