view release on metacpan or  search on metacpan

bin/table2yaml  view on Meta::CPAN

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

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

{ 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;