Parse-PayPal-TxDetailReport-Old

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::Rinci" : "0.01"
         },
         "x_spec" : {
            "Rinci" : "v1.1.0"
         }
      },
      "runtime" : {
         "requires" : {
            "DateTime" : "0",
            "Exporter" : "5.57",
            "File::BOM" : "0",
            "IO::Scalar" : "0",
            "String::BOM" : "0",
            "Text::CSV" : "0",
            "perl" : "5.010001",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "IO::Handle" : "0",

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 6.009, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Parse-PayPal-TxDetailReport-Old
requires:
  DateTime: '0'
  Exporter: '5.57'
  File::BOM: '0'
  IO::Scalar: '0'
  String::BOM: '0'
  Text::CSV: '0'
  perl: '5.010001'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Parse-PayPal-TxDetailReport-Old
  homepage: https://metacpan.org/release/Parse-PayPal-TxDetailReport-Old
  repository: git://github.com/perlancar/perl-Parse-PayPal-TxDetailReport-Old.git
version: '0.002'
x_Dist_Zilla:

Makefile.PL  view on Meta::CPAN

  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "Parse-PayPal-TxDetailReport-Old",
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.010001",
  "NAME" => "Parse::PayPal::TxDetailReport::Old",
  "PREREQ_PM" => {
    "DateTime" => 0,
    "Exporter" => "5.57",
    "File::BOM" => 0,
    "IO::Scalar" => 0,
    "String::BOM" => 0,
    "Text::CSV" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "File::Spec" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::More" => 0
  },
  "VERSION" => "0.002",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "DateTime" => 0,
  "Exporter" => "5.57",
  "File::BOM" => 0,
  "File::Spec" => 0,
  "IO::Handle" => 0,
  "IO::Scalar" => 0,
  "IPC::Open3" => 0,
  "String::BOM" => 0,
  "Test::More" => 0,
  "Text::CSV" => 0,
  "strict" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};

dist.ini  view on Meta::CPAN

[@Author::PERLANCAR]
:version=0.593

[Prereqs]
perl = 5.010001
strict=0
warnings=0
DateTime=0
Exporter=5.57
File::BOM=0
IO::Scalar=0
String::BOM=0
Text::CSV=0

[Prereqs / DevelopX_spec]
-phase=develop
-relationship=x_spec
Rinci=1.1.0

lib/Parse/PayPal/TxDetailReport/Old.pm  view on Meta::CPAN

sub parse_paypal_old_txdetail_report {
    my %args = @_;

    my $format = $args{format};
    my $date_format = $args{date_format} // 'MM/DD/YYYY';

    my $fh;
    my $file;
    if (defined(my $str = $args{string})) {
        require IO::Scalar;
        require String::BOM;

        if (!$format) {
            $format = $str =~ /\t/ ? 'tsv' : 'csv';
        }
        $str = String::BOM::strip_bom_from_string($str);
        $fh = IO::Scalar->new(\$str);
        $file = "string";
    } elsif (defined(my $file0 = $args{file})) {
        require File::BOM;

        if (!$format) {
            $format = $file0 =~ /\.(csv)\z/i ? 'csv' : 'tsv';
        }
        open $fh, "<:encoding(utf8):via(File::BOM)", $file0
            or return [500, "Can't open file '$file': $!"];
        $file = $file0;
    } else {
        return [400, "Please specify file (or string)"];
    }

    my $res = [200, "OK", {
        format => "txdetail_old",
        transactions => [],
    }];