automatic migration: bump-2024

.github/workflows/linux.yml

@@ -17,7 +17,9 @@ jobs:
       fail-fast: false
       matrix:
         cip_tag:
-          - "5.37"
+          - "5.41"
+          - "5.40"
+          - "5.38"
           - "5.36"
           - "5.34"
           - "5.32"

.gitignore

@@ -2,4 +2,7 @@ FFI-Model-*
 /.build/
 *.swp
 
-
+/FFI-Model-*
+/.build
+*.old
+*.orig

.vscode/settings.json

@@ -0,0 +1,6 @@
+{
+    "pls.perlcritic.perlcriticrc": "perlcriticrc",
+    "pls.inc": [
+        "$ROOT_PATH/lib"
+    ]
+}

README.md

@@ -0,0 +1,14 @@
+# FFI::Model ![static](https://github.com/PerlFFI/FFI-Model/workflows/static/badge.svg) ![linux](https://github.com/PerlFFI/FFI-Model/workflows/linux/badge.svg)
+
+Model for FFI generated code
+
+# AUTHOR
+
+Graham Ollis <[email protected]>
+
+# COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2022-2024 by Graham Ollis.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.

dist.ini

@@ -2,11 +2,11 @@ name             = FFI-Model
 author           = Graham Ollis <[email protected]>
 license          = Perl_5
 copyright_holder = Graham Ollis
-copyright_year   = 2022
+copyright_year   = 2022-2024
 version          = 0.01
 
 [@Author::Plicease]
-:version       = 2.69
+:version       = 2.79
 release_tests  = 1
 installer      = Author::Plicease::MakeMaker
 github_user    = PerlFFI

t/00_diag.t

@@ -0,0 +1,86 @@
+use Test2::V0 -no_srand => 1;
+use Config;
+
+eval { require 'Test/More.pm' };
+
+# This .t file is generated.
+# make changes instead to dist.ini
+
+my %modules;
+my $post_diag;
+
+$modules{$_} = $_ for qw(
+  ExtUtils::MakeMaker
+  Test2::V0
+);
+
+
+
+my @modules = sort keys %modules;
+
+sub spacer ()
+{
+  diag '';
+  diag '';
+  diag '';
+}
+
+pass 'okay';
+
+my $max = 1;
+$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
+our $format = "%-${max}s %s";
+
+spacer;
+
+my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
+
+if(@keys > 0)
+{
+  diag "$_=$ENV{$_}" for @keys;
+
+  if($ENV{PERL5LIB})
+  {
+    spacer;
+    diag "PERL5LIB path";
+    diag $_ for split $Config{path_sep}, $ENV{PERL5LIB};
+
+  }
+  elsif($ENV{PERLLIB})
+  {
+    spacer;
+    diag "PERLLIB path";
+    diag $_ for split $Config{path_sep}, $ENV{PERLLIB};
+  }
+
+  spacer;
+}
+
+diag sprintf $format, 'perl', "$] $^O $Config{archname}";
+
+foreach my $module (sort @modules)
+{
+  my $pm = "$module.pm";
+  $pm =~ s{::}{/}g;
+  if(eval { require $pm; 1 })
+  {
+    my $ver = eval { $module->VERSION };
+    $ver = 'undef' unless defined $ver;
+    diag sprintf $format, $module, $ver;
+  }
+  else
+  {
+    diag sprintf $format, $module, '-';
+  }
+}
+
+if($post_diag)
+{
+  spacer;
+  $post_diag->();
+}
+
+spacer;
+
+done_testing;
+