1 2 3 4 5 6 7 8 9 10 11 12 13
package FS::cust_pkg::API; use strict; sub API_getinfo { my $self = shift; +{ ( map { $_=>$self->$_ } $self->fields ), }; } 1;