use Test::Exception;
-
{
package Foo;
use Moose;
{
my $obj = eval { Foo->new; };
- ::like( $@, qr/is required/, "... Foo plain" );
- ::is( $obj, undef, "... the object is undef" );
+ like( $@, qr/is required/, "... Foo plain" );
+ is( $obj, undef, "... the object is undef" );
}
{
{
my $obj = eval { Bar->new; };
- ::like( $@, qr/Bar died/, "... Bar plain" );
- ::is( $obj, undef, "... the object is undef" );
+ like( $@, qr/Bar died/, "... Bar plain" );
+ is( $obj, undef, "... the object is undef" );
}
-
-1;
-