#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
use strict;
use warnings;
use Scalar::Util 'isweak';
use Test::More;
-$TODO = q{Mouse is not yet completed};
use Test::Exception;
$attr->set_value( $foo, 3 );
+ note 'skip Moose specific features';
+ last;
+
is_deeply(
\@Foo::calls,
[ [ $foo, 3, 2 ] ],
}
{
+ note 'skip Moose specific features';
+ last;
+
my $foo = Foo->new(foo => 2);
is_deeply(
\@Foo::calls,