Select Code to Download

sub hol_Suff {
    my $self = shift;
...
    my ($actmask) = $sth->fetchrow_array;
    return $actmask;
}

CREATE OR REPLACE FUNCTION public."mmgb_getAllBooks"(
    IN parm_moneymgr character varying,
...
ALTER FUNCTION public."mmgb_getAllBooks"(character varying, character 
+varying)
  OWNER TO mydbo;
COMMENT ON FUNCTION public."mmgb_getAllBooks"(character varying, chara
+cter varying) IS 'optional filters to cater for known use cases';

sub mmgb_getAllBooks {
    my $self = shift;
...
    }
    return \@return;
}

        $VAR1 = [
          '(17,SPX,"S&P 500 Index",USD,"S&P 500",50,"2017-06-15 15:06:
+47")',
          '(19,FTSE100,"FTSE 100 Index",GBP,"FTSE 100",18,"2017-07-01 
+15:06:47")'
        ];