NAME

SPVM::EqualityChecker::SameObject - a callback implementation of SPVM::EqualityChecker to check if the memory addresses of the two objects are equal.

SYNOPSYS

use SPVM::EqualityChecker::SameObject;

my $equality_checker = SPVM::EqualityChecker::SameObject->new;

my $point1 = SPVM::Point->new(1, 2);
my $point2 = $point1;
my $point3 = SPVM::Point->new(1, 2);

# Equals
my $is_equal = $equality_checker->($point1, $point2);

# Not equals
my $is_equal = $equality_checker->($point1, $point3);

DESCRIPTION

SPVM::EqualityChecker::SameObject is a callback implementation of SPVM::EqualityChecker to check if the memory addresses of the two objects are equal.

STATIC METHODS

new

sub new : SPVM::EqualityChecker::SameObject ()

Create a new SPVM::EqualityChecker::SameObject object.

CALLBACK METHOD IMPLEMENTATION

sub : int ($self : self, $object1 : object, $object2 : object)

If the address of the two objects are equal, return 1, otherwise return 0.