Exception-FFI-ErrorCode

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::Spelling" : "0",
            "Test::Strict" : "0",
            "YAML" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "1.25",
            "Class::Tiny" : "0",
            "Devel::StackTrace" : "0",
            "Ref::Util" : "0",
            "Sub::Identify" : "0",
            "constant" : "1.32",
            "perl" : "5.020"
         }
      },
      "test" : {
         "requires" : {
            "Test2::V0" : "0.000121",
            "perl" : "5.020"
         }

META.yml  view on Meta::CPAN

generated_by: 'Dist::Zilla version 6.025, 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: Exception-FFI-ErrorCode
requires:
  Carp: '1.25'
  Class::Tiny: '0'
  Devel::StackTrace: '0'
  Ref::Util: '0'
  Sub::Identify: '0'
  constant: '1.32'
  perl: '5.020'
resources:
  IRC: irc://irc.perl.org/#native
  bugtracker: https://github.com/PerlFFI/Exception-FFI-ErrorCode/issues
  homepage: https://metacpan.org/pod/Exception::FFI::ErrorCode
  repository: git://github.com/PerlFFI/Exception-FFI-ErrorCode.git
version: '0.03'
x_generated_by_perl: v5.37.3

Makefile.PL  view on Meta::CPAN

  "LICENSE"          => "perl",
  "MIN_PERL_VERSION" => "5.020",
  "NAME"             => "Exception::FFI::ErrorCode",
  "PM"               => {
    "lib/Exception/FFI/ErrorCode.pm" => "\$(INST_LIB)/Exception/FFI/ErrorCode.pm"
  },
  "PREREQ_PM" => {
    "Carp"              => "1.25",
    "Class::Tiny"       => 0,
    "Devel::StackTrace" => 0,
    "Ref::Util"         => 0,
    "Sub::Identify"     => 0,
    "constant"          => "1.32"
  },
  "TEST_REQUIRES" => {
    "Test2::V0" => "0.000121"
  },
  "VERSION" => "0.03",
  "test"    => {
    "TESTS" => "t/*.t"
  }
);

my %FallbackPrereqs = (
  "Carp"              => "1.25",
  "Class::Tiny"       => 0,
  "Devel::StackTrace" => 0,
  "Ref::Util"         => 0,
  "Sub::Identify"     => 0,
  "Test2::V0"         => "0.000121",
  "constant"          => "1.32"
);

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

lib/Exception/FFI/ErrorCode.pm  view on Meta::CPAN

package Exception::FFI::ErrorCode 0.03 {

  use warnings;
  use 5.020;
  use constant 1.32 ();
  use experimental qw( signatures postderef );
  use Ref::Util qw( is_plain_arrayref );

  # ABSTRACT: Exception class based on integer error codes common in C code


  my %human_codes;

  sub import ($, %args)
  {
    my $class       = delete $args{class}       || caller;
    my $const_class = delete $args{const_class} || $class;

lib/Exception/FFI/ErrorCode.pm  view on Meta::CPAN

    *Exception::FFI::ErrorCode::Base::_carp_always = $sub;
  }

  __PACKAGE__->detect;

  package Exception::FFI::ErrorCode::Base 0.03 {

    sub _carp_always;

    use Class::Tiny qw( package filename line code trace _longmess );
    use Ref::Util qw( is_blessed_ref );
    use overload
        '""' => sub ($self,@) {
          if(_carp_always)
          {
            return $self->_longmess;
          }
          else
          {
            return $self->as_string . "\n";
          }

t/00_diag.t  view on Meta::CPAN

# make changes instead to dist.ini

my %modules;
my $post_diag;

$modules{$_} = $_ for qw(
  Carp
  Class::Tiny
  Devel::StackTrace
  ExtUtils::MakeMaker
  Ref::Util
  Sub::Identify
  Test2::V0
  constant
);



my @modules = sort keys %modules;

sub spacer ()