djmitche · January 8, 2010 04:40
diff --git a/gistfile1.PL b/gistfile1.PL
 my $obj1 = MyClass->new();
 my $obj2 = MyClass->new();
 my $someobj = $obj1;

 not_ok($obj1 eq $obj2);
 ok($obj1 eq $someobj);

 # equality means identity here: if $oneobj eq $anotherobj,
 # then after $oneobj->set_foo(10), $anotherobj->get_foo() returns 10

 # in python, this is the "is" operator.  What's the Perl equivalent?
	my $obj1 = MyClass->new();
	my $obj2 = MyClass->new();
	my $someobj = $obj1;

	not_ok($obj1 eq $obj2);
	ok($obj1 eq $someobj);

	# equality means identity here: if $oneobj eq $anotherobj,
	# then after $oneobj->set_foo(10), $anotherobj->get_foo() returns 10

	# in python, this is the "is" operator. What's the Perl equivalent?
No results found