Select Code to Download

# Old:
cmp_deeply($obj->method, [ $result1, $result2 ]);
# New:
cmp_deeply($obj->method, bag($result1, $result2));

use warnings;
use strict;
...

    __PACKAGE__->meta->make_immutable;
}

use Test::Spec;
describe 'position' => sub {
...
        cmp_deeply([ $position->person ], bag($person));
    };
};

Attribute (person) does not pass the type constraint because: Validati
+on failed for 'Person' with value Test::Spec::Mocks::MockObject={  }

        my $person = stub( isa => 1 );

Found a special comparison in $data
You can only use specials in the expects structure at /home/choroba/pe
+rl5/lib/perl5/Test/Deep.pm line 346.

# Old:
if (! $Expects and ref($d1) and UNIVERSAL::isa($d1, "Test::Deep::Cmp")
+)
# New:
if (! $Expects and Scalar::Util::blessed($d1) and $d1->isa("Test::Deep
+::Cmp"))

        my $person = stub( isa => sub { $_[1] !~ /Test/ } );

sub mock_isa { my ($class) = @_; isa => sub { $_[1] eq $class } }

        my $person = stub(mock_isa('Person'));

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,