-- SQL
CREATE OR REPLACE FUNCTION asset_report__save
(in_id int, in_report_date date, in_report_class int, in_asset_class int, in_submit bool)

-- PERL
my ($ref) = $request->call_procedure(
            funcname => 'asset_report__save',
            args     => [
                $request->@{qw( id report_date report_class asset_class )}
            ]);

-- SQL
CREATE OR REPLACE FUNCTION asset__get
(in_id int, in_tag text)

-- PERL
my ($ref) = $request->call_procedure( funcname => 'asset__get', args => [ $request->{id} ]);