Hi Perl Monks

I'm trying to mock a stock procedure using DBD::Mock, but i have no idea how to mock it.

Main code:

q(BEGIN :ret := PKG_GAMES.create_game(in_game_genre => :genre,
                      in_classification => :class, 
                      out_game_id => :id,
                      out_game_ref => :ref);
END;)
[download]

Can anyone help me?

Thanks