MarpaX-Languages-IDL-AST

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::Version" : "1"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Data::Dumper" : "0",
            "Data::Scan" : "0",
            "Data::Scan::Role::Consumer" : "0",
            "Encode" : "0",
            "File::BOM" : "0",
            "File::Basename" : "0",
            "File::ShareDir" : "0",
            "File::Spec::Functions" : "0",
            "Getopt::Long" : "0",
            "IO::String" : "0",
            "MRO::Compat" : "0",
            "Marpa::R2" : "0",
            "Math::BigFloat" : "0",
            "Moo" : "0",
            "Moo::Role" : "0",

META.yml  view on Meta::CPAN

    version: '0.007'
  MarpaX::Languages::IDL::AST::Value:
    file: lib/MarpaX/Languages/IDL/AST/Value.pm
    version: '0.007'
requires:
  Carp: '0'
  Data::Dumper: '0'
  Data::Scan: '0'
  Data::Scan::Role::Consumer: '0'
  Encode: '0'
  File::BOM: '0'
  File::Basename: '0'
  File::ShareDir: '0'
  File::Spec::Functions: '0'
  Getopt::Long: '0'
  IO::String: '0'
  MRO::Compat: '0'
  Marpa::R2: '0'
  Math::BigFloat: '0'
  Moo: '0'
  Moo::Role: '0'

Makefile.PL  view on Meta::CPAN

  ],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.010",
  "NAME" => "MarpaX::Languages::IDL::AST",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Data::Dumper" => 0,
    "Data::Scan" => 0,
    "Data::Scan::Role::Consumer" => 0,
    "Encode" => 0,
    "File::BOM" => 0,
    "File::Basename" => 0,
    "File::ShareDir" => 0,
    "File::Spec::Functions" => 0,
    "Getopt::Long" => 0,
    "IO::String" => 0,
    "MRO::Compat" => 0,
    "Marpa::R2" => 0,
    "Math::BigFloat" => 0,
    "Moo" => 0,
    "Moo::Role" => 0,

Makefile.PL  view on Meta::CPAN

);


my %FallbackPrereqs = (
  "Carp" => 0,
  "Data::Dumper" => 0,
  "Data::Scan" => 0,
  "Data::Scan::Role::Consumer" => 0,
  "Encode" => 0,
  "ExtUtils::MakeMaker" => 0,
  "File::BOM" => 0,
  "File::Basename" => 0,
  "File::ShareDir" => 0,
  "File::Spec" => 0,
  "File::Spec::Functions" => 0,
  "File::Temp" => 0,
  "Getopt::Long" => 0,
  "IO::Handle" => 0,
  "IO::String" => 0,
  "IPC::Open3" => 0,
  "MRO::Compat" => 0,

bin/idl2moose  view on Meta::CPAN

#!perl
use strict;
use warnings FATAL => 'all';
use diagnostics;
use MarpaX::Languages::IDL::AST;
use Getopt::Long;
use Pod::Usage;
use POSIX qw/EXIT_FAILURE EXIT_SUCCESS/;
use IO::String;
use File::BOM qw/open_bom/;
use Encode;

# ABSTRACT: IDL to perl's Moose translation

our $VERSION = '0.007'; # VERSION

# PODNAME: idl2moose

my $help = 0;
my $input = undef;

bin/idl2moose  view on Meta::CPAN

            'nativeFloat!' => \$nativeFloat);

if ($help || ! $input) {
    my $pod = do {local $/; <DATA>};
    my $podfh = IO::String->new($pod);
    pod2usage(-verbose => 2, -noperldoc => 1, -input => $podfh, -exitval => $help ? EXIT_SUCCESS : EXIT_FAILURE);
}

# --------------------------------------------------------
# Read input, eventually with BOM and encoding as fallback
# --------------------------------------------------------
my $fh;
if (defined($encoding_input)) {
    open_bom($fh, $input, ':$encoding_input');  # Will respect BOM if any, fallback to encoding_input, croak on failure
} else {
    open($fh, '<:via(File::BOM)', $input) || die "Cannot open $input, $!";
}
my $data = do { local $/; <$fh> };
close($fh) || warn "Failed to close $input, $!";

# ----------
# Get result
# ----------
my $result = MarpaX::Languages::IDL::AST->new->parse(\$data)->generate->output;

# ----------------------------------------
# Output, eventually with encoding and BOM
# ----------------------------------------
$encoding_output //= $encoding_input;
my $encoding = '';
$encoding .= ":raw:encoding($encoding_output)" if (defined($encoding_output)); # :raw removes the CRLF mess
$encoding .= ":via(File::BOM)"                 if ($bom_output);               # BOM ?
if ($output) {
    open(my $fh, ">$encoding", $output) || die "Cannot open $output, $!";
    print $fh $result;
    close($fh) || warn "Cannot close $output";
} else {
    if ($encoding) {
        binmode(STDOUT, $encoding) || die "Cannot set encoding $encoding_output on STDOUT";
    }
    print STDOUT $result;
}

t/00-report-prereqs.dd  view on Meta::CPAN

                                      'Test::Version' => '1'
                                    }
                    },
       'runtime' => {
                      'requires' => {
                                      'Carp' => '0',
                                      'Data::Dumper' => '0',
                                      'Data::Scan' => '0',
                                      'Data::Scan::Role::Consumer' => '0',
                                      'Encode' => '0',
                                      'File::BOM' => '0',
                                      'File::Basename' => '0',
                                      'File::ShareDir' => '0',
                                      'File::Spec::Functions' => '0',
                                      'Getopt::Long' => '0',
                                      'IO::String' => '0',
                                      'MRO::Compat' => '0',
                                      'Marpa::R2' => '0',
                                      'Math::BigFloat' => '0',
                                      'Moo' => '0',
                                      'Moo::Role' => '0',