[gitmo/MooseX-Role-Parameterized.git] / t / 010-blessed-confess.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;

do {
    package MyRole;
    use MooseX::Role::Parameterized;
    ::is(\&confess, \&Carp::confess, 'confess');
    ::is(\&blessed, \&Scalar::Util::blessed, 'blessed');
};
Commit	Line	Data
2293e5f1	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	do {
	7	package MyRole;
	8	use MooseX::Role::Parameterized;
	9	::is(\&confess, \&Carp::confess, 'confess');
	10	::is(\&blessed, \&Scalar::Util::blessed, 'blessed');
	11	};
	12