view release on metacpan or  search on metacpan

t/08exception.t  view on Meta::CPAN

#!/usr/bin/env perl
use warnings;
use strict;
use utf8;
use Business::CPI::Base::Exception;
use Test::Exception;
use Test::More;
use Try::Tiny;

throws_ok {
    Business::CPI::Base::Exception->throw(
        type => 'unknown',
        message => 'error code 123',
        gateway_data => {
            foo => 1,
            bar => 2,
        }
    );