Open KES777 opened 5 years ago
lib/perl5/Mojo/Message.pm:141 my $data = $self->{json} //= j($self->body); DBG> $self->body {"opfg_id":215,"name":"gadsddas","country_id":2,"edrpou":123123,"edr_cert":"2525225","tax_system":"Платник єдиного податку за ставкою 3 %","phone":"+380987654322","site":"arqwrqwr","director_person_basis_for_work":"fffffffffffffffffffff","authorized_person_basis_for_work":"ааааааааааааааа","authorized_person_position":"ааааааааааааааааааааааааааа","ipn":"23423","nds_cert":123123,"contractor_type_id":2,"signer_person_basis_for_work":"лул","signer_person_position":"ааааааааааааааааааааааааааа","authorized_person_id":882,"director_person_id":881,"signer_person_id":883,"legal_address_id":188,"correspondence_address_id":189} DBG> j($self->body) Wide character in print at /home/kes/perl5/perlbrew/perls/perl-5.24.1/lib/site_perl/5.24.1/DB/Utils.pm line 161, <STDIN> line 5. { authorized_person_basis_for_work => ааааааааааааааа, authorized_person_id => 882, authorized_person_position => ааааааааааааааааааааааааааа, contractor_type_id => 2, correspondence_address_id => 189, country_id => 2, director_person_basis_for_work => fffffffffffffffffffff, director_person_id => 881, edr_cert => 2525225, edrpou => 123123, ipn => 23423, legal_address_id => 188, name => gadsddas, nds_cert => 123123, opfg_id => 215, phone => +380987654322, signer_person_basis_for_work => лул, signer_person_id => 883, signer_person_position => ааааааааааааааааааааааааааа, site => arqwrqwr, tax_system => Платник єдиного податку за ставкою 3 %, } Devel::Peek::Dump $self->body SV = PV(0xb56d780) at 0xb9568b0 REFCNT = 1 FLAGS = (TEMP,POK,IsCOW,pPOK) PV = 0xb725160 "{\"opfg_id\": ... CUR = 729 LEN = 736 COW_REFCNT = 1 DBG> Devel::Peek::Dump j( $self->body )->{ phone } SV = PVMG(0xb94ef70) at 0xb9570a8 REFCNT = 1 FLAGS = (POK,IsCOW,pPOK,UTF8) IV = 0 NV = 0 PV = 0xb93aaa0 "+380987654322"\0 [UTF8 "+380987654322"] CUR = 13 LEN = 16 COW_REFCNT = 0 undef