The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TB2::Result::Role::todo;

use TB2::Mouse ();
use TB2::Mouse::Role;

our $VERSION = '1.005000_006';
$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)


sub is_todo { 1 }
sub is_fail { 0 }
sub is_pass { 1 }

no TB2::Mouse::Role;

1;


=head1 NAME

TB2::Result::Role::todo - The assert is expected to fail

=head1 DESCRIPTION

Apply this role to a Result::Base object if the assert ran but is
expected to fail.

=cut