t/type.t ..
# Subtest: Type coercion
    ok 1 - Can coerce a sales invoice
    ok 2 - Can coerce a supplier invoice
    ok 3 - Can coerce a credit type
    ok 4 - Can coerce a supplier credit type
    1..4
ok 1 - Type coercion
ok 2 - use MyApp;
# Subtest: Class coercion
    # Type=Invoice
    ok 1 - An object of class 'MyApp' isa 'MyApp'
    # Type=SupplierInvoice
    ok 2 - An object of class 'MyApp' isa 'MyApp'
    # Type=Credit
    not ok 3 - MyApp->new() died

    #   Failed test 'MyApp->new() died'
    #   at t/type.t line 31.
    #     Error was:  Undef did not pass type constraint "InvoiceType|CreditType" (in $args->{"type"}) at /home/dpaikkos/spl/local/lib/perl5/Test/More.pm line 741
    #     "InvoiceType|CreditType" requires that the value pass "CreditType" or "InvoiceType"
    #     Undef did not pass type constraint "InvoiceType"
    #         "InvoiceType" is a subtype of "Enum["ACCPAY","ACCREC"]"
    #         "Enum["ACCPAY","ACCREC"]" requires that the value is defined
    #     Undef did not pass type constraint "CreditType"