FS/FS/cust_pkg/API.pm

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