package WWW::OpenAPIClient::Object::AuthorizeRequestDTO;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::Parse;
use DateTime;

use base ("Class::Accessor", "Class::Data::Inheritable");

__PACKAGE__->mk_classdata('attribute_map' => {});
__PACKAGE__->mk_classdata('openapi_types' => {});
__PACKAGE__->mk_classdata('method_documentation' => {});
__PACKAGE__->mk_classdata('class_documentation' => {});

# new plain object
sub new {
    my ($class, %args) = @_;

    my $self = bless {}, $class;

    $self->init(%args);

    return $self;
}

# initialize the object
sub init
{
    my ($self, %args) = @_;

    foreach my $attribute (keys %{$self->attribute_map}) {
        my $args_key = $self->attribute_map->{$attribute};
         $self->$attribute( $args{ $args_key } );
    }
}

__PACKAGE__->method_documentation({
    'username' => {
        datatype => 'string',
        base_name => 'Username',
        description => '',
        format => '',
        read_only => '',
            },
    'password' => {
        datatype => 'string',
        base_name => 'Password',
        description => '',
        format => '',
        read_only => '',
            },
});

__PACKAGE__->openapi_types( {
    'username' => 'string',
    'password' => 'string'
} );

__PACKAGE__->attribute_map( {
    'username' => 'USERNAME',
    'password' => 'PASSWORD'
} );

__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});


1;
[download]

my %h= ('username' => 'TEST_USER','password' => 'dsds');
my $authobj=WWW::OpenAPIClient::Object::AuthorizeRequestDTO->new(%h);
print Dumper $authobj;

$VAR1 = bless( {
                 'username' => undef,
                 'password' => undef
               }, 'WWW::OpenAPIClient::Object::AuthorizeRequestDTO' );
[download]

I get this weird error when using the JSON or JSON::XS module:

$ perl -MJSON -e ''

XS.c: loadable library and perl binaries are mismatched (got first handshake key 0xeb80080, needed 0xf380080)

And the same error for perl -MJSON::XS -e ''

perl -v
This is perl 5, version 38, subversion 0 (v5.38.0) built for x86_64-li
+nux-thread-multi
...
[download]

What could cause this, and what can I do to fix it?

Hi Monks,

Today I've started to study perlembed, Here is the first code example in Perlembed:

#include <EXTERN.h>               /* from the Perl distribution     */
 #include <perl.h>                 /* from the Perl distribution     *
+/

 static PerlInterpreter *my_perl;  /***    The Perl interpreter    ***
+/

 int main(int argc, char **argv, char **env)
 {
    PERL_SYS_INIT3(&argc,&argv,&env);
        my_perl = perl_alloc();
        perl_construct(my_perl);
    PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
        perl_run(my_perl);
        perl_destruct(my_perl);
        perl_free(my_perl);
    PERL_SYS_TERM();
    exit(EXIT_SUCCESS);
 }
[download]

#include <EXTERN.h>
#include <perl.h>



 static PerlInterpreter *his_perl ;  /***    The Perl interpreter    *
+**/

 int main(int argc, char **argv, char **env)
 {

    PERL_SYS_INIT3(&argc,&argv,&env);
      
    PERL_SYS_TERM();  his_perl = perl_alloc();
        perl_construct(his_perl);
        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_parse(his_perl, NULL, argc, argv, (char **)NULL);
        perl_run(his_perl);
        perl_destruct(his_perl);
        perl_free(his_perl);
    exit(EXIT_SUCCESS);
 }
[download]

Hoping this is an easy problem to solve as my attempts are failing miserably. Using the AI bots and Google only seem to create solutions where the output is all mungled up or the XML elements get repeated, or worse new XML elements are added.

In short, I'm creating a specific soap envelope I need to send to the endpoint web service. The reason is due to complexity and the inability for SOAP::Lite to render the output correctly. This also provides more control for changes as they occur. But when I try to make the call to the web service and send the envelope it seems to be sending the data modified, or the method call is not correct, etc.

I'll post an example below and hopefully someone has a 'duh' answer I seem to be missing.

use SOAP::Lite;
use SOAP::Lite on_action => sub {sprintf '%s/%s',@_};

$proxy = 'https://proxy.com/2.3';
$uri   = 'https://uri.dataservices.training';
$method = 'methodCall';

$soap = SOAP::Lite
 ->proxy($proxy)
 ->uri($uri);

$soapenv = <<'EOF';
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope ... (bunch of NS values)>
<soap:Header>
 (bunch of header settings here)
</soap:Header>
<soap:Body>
 (bunch of body settings here)
</soap:Body>
</soap:Envelope>
EOF

$results = $soap->call("$uri/$method",$soapenv);
[download]

This is resulting in the error "Element ..($uri/$method) ... can't be allowed in valid XML message.

$str1='LFGSLSIIVAHHM';
$str2='LFGSLSIIVSHHM';
[download]

Wise Monks,

I am trying to translate some JS code into Perl. The problem is that I think said JS code does not handle well overflows when doing a left shift and it calculates the result (let's say a checksum) wrongly. But this is now the result and I must emulate that result in my Perl translation. I can not fix the JS code, it is not mine. Question is: how?

Here is the gist of it assuming a 64bit Linux console with node.js installed and bash:

node -e 'console.log(1<<30);'
1073741824
echo $((1<<30))
1073741824 # same result
perl -e 'print 1<<30, "\n"'
1073741824 # same result

node -e 'console.log(1<<31);'
-2147483648 # overflow in 32bit!
echo $((1<<31))
2147483648 # correct result
perl -e 'print 1<<31, "\n"'
2147483648 # same result

# to obtain the overflow in bash
echo $((1<<63))
-9223372036854775808 # overflow in 64bit
# still perl does not
perl -e 'print 1<<63, "\n"'
9223372036854775808
perl -e 'print 1<<64, "\n"'
0 # gotcha!

# this is when I realised the problem:
node -e 'console.log(1169367104<<5);'
-1234958336
echo $((1169367104<<5))
37419747328
perl -e 'print 1169367104<<5, "\n"'
37419747328 # same result
[download]

(note: if you don't have node.js open your browser, open its 'web developer tools', go to tab 'console' and just paste that bit of harmless js code

So, I am asking: how can I make perl print -1234958336 when left-shifting 1169367104<<5 ?

use Test::More;
is(1169367104<<5, -1234958336, "simulated JS 32bit shift.");
done_testing;
[download]

bw, bliako

Edit: I have asked a more general question about JS/C/Perl integer overflows at https://stackoverflow.com/questions/77584450/emulate-javascripts-32bit-signed-integer-arithmetic-to-c-or-perl-some-discr

111362894.832068 starman master 24776: segfault at c1 ip 00007f29bd8d2057 sp
 00007fff6ba44168 error 4 in XS.so7f29bd8cf000+15000

[Unit]
Description=StarmanService

[Service]
Type=simple
User=starman
Group=starman
ExecStart=/home/starman/perl5/bin/starman -E debug --ssl-key=/home/sta
+rman/starm
anpem+5-key.pem --ssl-cert=/home/starman/starmanpem+5.pem --listen :50
+00:ssl --w
orkers=1 /home/starman/app.psgi --access-log /home/starman/access.log 
+--user=sta
rman --error-log /home/starman/error1.log
Restart=always
WorkingDirectory=/home/starman/cgi-bin

[Install]
WantedBy=multi-user.target
[download]

What should I name my tarball for upload to CPAN?

I have chosen to give the package I am creating a home at Regexp::CharClasses::Thai on CPAN, so the final filename in that tree is simply "Thai.pm". However, obviously it needs to find its way past the first two levels in that tree...so I'm assuming that I should name it "Regexp-CharClasses-Thai.tar" (which contains the tarball made of the entire package and its associated files). Would this be a correct assumption? Alternatively, should it be compressed as well, i.e. "Regexp-CharClasses-Thai.tar.gz" OR "Regexp-CharClasses-Thai.tgz"?

Also, do I create the tarball to include the directories './Regexp/CharClasses/Thai/', or just the final directory (the one with the MakeFile.PL, etc., in this case /Thai/), or something else, e.g. no prior directories at all, just the one with the package files and subdirs?

Note that I have already checked, and found no specifics on how to name or structure the tarball (it's as if all the documentation assumes a root-level module) in any of these 'official' places:

• https://perldoc.perl.org/perlnewmod
• https://www.cpan.org/modules/04pause.html
• https://perldoc.perl.org/perlmodlib

I hate asking so many questions, but I'm rather stumped on this one and wishing the kind folk who have worked so hard on the documentation for how to create and submit modules to CPAN would have given some thought to the creation of the tarball once the module itself was prepared. (Or perhaps one of you might direct me to where this was done and has yet escaped my notice.)

One additional question that came up while reading the materials linked above: Can I just submit a link to CPAN and then host the module myself? If so, how would this be done?

Now I am planning to upgrade to 64-bit Strawberry Perl 5.38.0.1, which means to compile Tk for 64-bit. The compilation was possible after applying a patch to the Tk sources (https://github.com/chrstphrchvz/perl-tk/commit/0cc1fd7c599fc6b7050fcd7442f10824b032c462.patch).

Now, that i am prepared to integrate the new versions, I am wondering, if it might be possible to have both variants (32-bit and 64-bit) of the Tk module installed together. That would have the advantage, that the application would work with the old 32-bit Perl and also with the new 64-bit Perl. This fallback would give my clients more time to migrate to the new Perl version.

As far as I understand it the compiled module parts reside in the directory auto/Tk (which complements the Tk directory). If I would put my 64-bit parts in new directories Tk64 and auto/Tk64, would a simple use lib 'Tk' versus use lib 'Tk64' be enough to find the corresponding binaries?

Many thanks for your hints!
Hexcoder

According to the h2xs utility, the README file should contain a list of the module's dependencies. I have a hard time thinking such things as use strict; should need to be listed, but what about require Exporter;?

If my dependencies are strictly limited to the following, which of these, if any, should be listed in the README file?

use 5.008003;
use strict;
use warnings;

require Exporter;
[download]

I would think these are all virtually taken for granted, and ubiquitous on ordinary installations of Perl. Do I still list them? If not, do I report "No dependencies"? (That doesn't seem quite accurate, either.) What is considered the best practice here?