Lines Matching defs:Singleton
9 # Tests freezing/thawing structures containing Singleton objects,
26 my $object = My::Singleton->new;
27 isa_ok( $object, 'My::Singleton' );
29 # Confirm (for the record) that the class is actually a Singleton
30 my $object2 = My::Singleton->new;
31 isa_ok( $object2, 'My::Singleton' );
49 # ... EXCEPT that the Singleton should be the same instance of the object
50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' );
64 package My::Singleton;
84 Test::More::is( $class, 'My::Singleton', 'STORABLE_attach is passed the correct class name' );
88 # Get the Singleton object and return it