blob: 34d9c254f784d70129a98976c72a307d3e2e95aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use warnings;
package Test::Deep::Ignore;
use Test::Deep::Cmp;
my $Singleton = __PACKAGE__->SUPER::new;
sub new
{
return $Singleton;
}
sub descend
{
return 1;
}
1;
|