FS/FS/part_pkg/API.pm

   1 package FS::part_pkg::API;
   2
   3 use strict;
   4
   5 sub API_getinfo {
   6   my $self = shift;
   7   #my( $self, %opt ) = @_;
   8
   9   +{ ( map { $_=>$self->$_ } $self->fields ),
  10      ( map { $_=>$self->option($_) }
  11          qw(setup_fee recur_fee)
  12      ),
  13    };
  14
  15 }
  16
  17 1;