blob: 2aadcf59772cf6f7d1e5b95ffdb31f37296c852b (
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;
|