use Object::Execute;

my @operationz =
(
[

      [ method arg arg arg ... ],          # method and arguments
      [ 1 ],                              # expected value

],
[
qw( method arg arg arg ) # just check for $@ ],
[

      [ qw( method expected to fail ) ],   # continue on failure
      '',

],
[

      [ qw( method arg arg ) ],            # hardwired message
      [ 1 ],
      'your message here'

],

);