One Hat Cyber Team
Your IP :
172.16.0.254
Server IP :
58.26.163.33
Server :
Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Server Software :
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
PHP Version :
7.3.25
Buat File
|
Buat Folder
Eksekusi
Dir :
C:
/
xampp7
/
perl
/
vendor
/
lib
/
DBIx
/
Class
/
CDBICompat
/
Edit File:
GetSet.pm
package # hide from PAUSE DBIx::Class::CDBICompat::GetSet; use strict; use warnings; #use base qw/Class::Accessor/; sub get { my ($self, @cols) = @_; if (@cols > 1) { return map { $self->get_column($_) } @cols; } else { return $self->get_column($_[1]); } } sub set { my($self, %data) = @_; # set_columns() is going to do a string comparison before setting. # This breaks on DateTime objects (whose comparison is arguably broken) # so we stringify anything first. for my $key (keys %data) { next unless ref $data{$key}; $data{$key} = "$data{$key}"; } return shift->set_columns(\%data); } 1;
Simpan