Convert-MRC

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "dist_version" => "4.03",
  "license" => "perl",
  "module_name" => "Convert::MRC",
  "recommends" => {},
  "recursive_test_files" => 1,
  "requires" => {
    "Carp" => 0,
    "Data::Dumper" => 0,
    "English" => 0,
    "Exporter" => 0,
    "Log::Message::Simple" => 0,
    "base" => 0,
    "open" => 0,
    "perl" => "5.008",
    "strict" => 0,
    "warnings" => 0
  },
  "script_files" => [
    "bin/mrc2tbx"
  ],
  "test_requires" => {

META.json  view on Meta::CPAN

            "Test::Pod::Coverage" : "1.08",
            "version" : "0.9901"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Data::Dumper" : "0",
            "English" : "0",
            "Exporter" : "0",
            "Log::Message::Simple" : "0",
            "base" : "0",
            "open" : "0",
            "perl" : "5.008",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Data::Section::Simple" : "0",

META.json  view on Meta::CPAN

         "Data::Dumper" : "2.145",
         "Data::Section::Simple" : "0.03",
         "English" : "1.05",
         "Exporter" : "5.66",
         "File::Find" : "1.20",
         "File::Slurp" : "9999.19",
         "File::Spec::Functions" : "3.40",
         "File::Temp" : "0.2301",
         "File::Touch" : "0.08",
         "FindBin" : "1.51",
         "Log::Message::Simple" : "0.08",
         "Module::Build" : "0.4005",
         "Pod::Coverage::TrustPod" : "0.100002",
         "Test::Base" : "0.60",
         "Test::Base::Filter" : "NA(undef)",
         "Test::CPAN::Meta" : "0.23",
         "Test::LongString" : "0.15",
         "Test::More" : "0.98",
         "Test::Pod" : "1.45",
         "Test::Pod::Coverage" : "1.08",
         "Test::XML" : "0.08",

META.yml  view on Meta::CPAN

    file: lib/Convert/MRC.pm
    version: 4.03
  Convert::MRC::Variables:
    file: lib/Convert/MRC/Variables.pm
    version: 4.03
requires:
  Carp: 0
  Data::Dumper: 0
  English: 0
  Exporter: 0
  Log::Message::Simple: 0
  base: 0
  open: 0
  perl: 5.008
  strict: 0
  warnings: 0
resources:
  homepage: https://github.com/byutrg/p5-Convert-MRC
  license: http://dev.perl.org/licenses/
  repository: https://github.com/byutrg/p5-Convert-MRC.git
version: 4.03

META.yml  view on Meta::CPAN

    Data::Dumper: 2.145
    Data::Section::Simple: 0.03
    English: 1.05
    Exporter: 5.66
    File::Find: 1.20
    File::Slurp: 9999.19
    File::Spec::Functions: 3.40
    File::Temp: 0.2301
    File::Touch: 0.08
    FindBin: 1.51
    Log::Message::Simple: 0.08
    Module::Build: 0.4005
    Pod::Coverage::TrustPod: 0.100002
    Test::Base: 0.60
    Test::Base::Filter: NA(undef)
    Test::CPAN::Meta: 0.23
    Test::LongString: 0.15
    Test::More: 0.98
    Test::Pod: 1.45
    Test::Pod::Coverage: 1.08
    Test::XML: 0.08

Makefile.PL  view on Meta::CPAN

  "EXE_FILES" => [
    "bin/mrc2tbx"
  ],
  "LICENSE" => "perl",
  "NAME" => "Convert::MRC",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Data::Dumper" => 0,
    "English" => 0,
    "Exporter" => 0,
    "Log::Message::Simple" => 0,
    "base" => 0,
    "open" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Data::Section::Simple" => 0,
    "File::Find" => 0,
    "File::Slurp" => 0,
    "File::Spec::Functions" => 0,

lib/Convert/MRC.pm  view on Meta::CPAN

# TEST DATA HERE

package Convert::MRC;
use strict;
use warnings;
use Data::Dumper;
use Carp;
use English qw(-no_match_vars);

use Log::Message::Simple qw (:STD);

#import global constants used in processing
use Convert::MRC::Variables;

# ABSTRACT: CONVERT MRC TO TBX-BASIC
our $VERSION = '4.03'; # VERSION

use open ':encoding(utf8)', ':std';    # incoming/outgoing data will be UTF-8

our @origARGV = @ARGV;

lib/Convert/MRC.pm  view on Meta::CPAN

            $application->{log_fh} = $fh;
        }
        else {
            open my $fh2, '>', $fh or die "Couldn't open $fh";
            $application->{log_fh} = $fh2;
        }
    }
    return $application->{log_fh};
}

#same thing as Log::Message::Simple::error, but verbose is always off.
sub _error {
    my ($msg) = @_;
    error $msg, 0;
	return;
}

#prints the given message to the current log file handle.
sub _log {
    my ( $self, $message ) = @_;
    print { $self->{log_fh} } $message;

lib/Convert/MRC.pm  view on Meta::CPAN

    #clear all processing data
    delete $self->{concept};
    delete $self->{langSet};
    delete $self->{term};
    delete $self->{party};
    delete $self->{unsortedTerm};
    delete $self->{party};
    delete $self->{langSetDefined};

    #print all messages to the object's log
    $self->_log( Log::Message::Simple->stack_as_string() );
    Log::Message::Simple->flush();

    select $select;

    # user's responsibility to close the various filehandles
	return;
}


# do nothing if no term level is open
sub _closeTerm {

t/000-report-versions-tiny.t  view on Meta::CPAN

eval { $v .= pmver('Data::Dumper','any version') };
eval { $v .= pmver('Data::Section::Simple','any version') };
eval { $v .= pmver('English','any version') };
eval { $v .= pmver('Exporter','any version') };
eval { $v .= pmver('File::Find','any version') };
eval { $v .= pmver('File::Slurp','any version') };
eval { $v .= pmver('File::Spec::Functions','any version') };
eval { $v .= pmver('File::Temp','any version') };
eval { $v .= pmver('File::Touch','any version') };
eval { $v .= pmver('FindBin','any version') };
eval { $v .= pmver('Log::Message::Simple','any version') };
eval { $v .= pmver('Module::Build','0.3601') };
eval { $v .= pmver('Pod::Coverage::TrustPod','any version') };
eval { $v .= pmver('Test::Base','any version') };
eval { $v .= pmver('Test::Base::Filter','any version') };
eval { $v .= pmver('Test::CPAN::Meta','any version') };
eval { $v .= pmver('Test::LongString','any version') };
eval { $v .= pmver('Test::More','0.96') };
eval { $v .= pmver('Test::Pod','1.41') };
eval { $v .= pmver('Test::Pod::Coverage','1.08') };
eval { $v .= pmver('Test::XML','any version') };