The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678910111213 package Test2::Harness::UI::Schema::ResultBase;use strict;use warnings;use base 'DBIx::Class::Core';sub get_all_fields { my $self = shift; my @fields = $self->result_source->columns; return ( map {($_ => $self->$_)} @fields );}1;
package
Test2::Harness::UI::Schema::ResultBase;
use
strict;
warnings;
base
'DBIx::Class::Core'
;
sub
get_all_fields {
my
$self
=
shift
@fields
->result_source->columns;
return
(
map
{(
$_
=>
->
)}
);
}
1;